Сегодня Али в местноммагазине сделал покупку за C тенге

Сегодня Али в местноммагазине сделал покупку за C тенге. Он только хотел расплатится и услышал от продавца фразу «Без сдачи пожалуйста, молодой человек». У него есть всего N монет достоинств a1, a2, … , aN тенге. Определите, сможет ли он расплатится без сдачи. Формат входных данныхВ первой строке входного файла записаны два целых числа C (1 ≤ C ≤ 1000) и N (1 ≤ N ≤ 15) — общая сумма покупки и количство монет у Али соответсвенно. Во второй строке записаны N целых чисел a1, a2, … , aN (1 ≤ ai ≤ 1000) — достоинства монет Али. Формат выходных данныхВ единственной строке выведите слово «YES», если Али сможет расплатится без сдачи. Иначе, выведите «NO»

в избранное

averitas

12 августа 2022

Varinput,output: text; n,i,j,g,nm,ans,t: integer; ara: array[0… 1000] of integer; ar,arq: array[0… 1000] of integer; ts,sum,a: integer; beginassign (input,'f.in'); reset (input); assign (output,'f.out'); rewrite (output); readln (input,a,n); ans: =10000; for i: =1 to n dobeginread (input,ar[i]); ts: =ts+2*ar[i]; end; if ts1 do begin sum: =sum-ar[g]*arq[g]; dec (nm,arq[g]); arq[g]: =0; dec (g); end; inc (arq[g]); sum: =sum+ar[g]; inc (nm); end; if sum=a then begin if nm1000 then writeln (output,'0') else writeln (output,ans); end; close (output); close (input); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Перевидите 77 в десятичную,77 в восьмеричную,77 в шеснатеричную

Частота дискретизации

Помогите решить задачи в Паскале, можно одну — у гусей и кроликов вместе 64 лапы

РЕШИТЕ КТО ЧТО СМОЖЕТ! ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!

Что такое операционные системы? И какие виды операционных систем есть?

Выпиши в один столбик правильные именафайлов, а во второй правильные расширения: Письмо.*, letter.2txt, WinWord

1024 бита=… байты. 24 байта=… бита 1000 байт=… килобайт=мегабайт., 81000920 бит=… килобайт=… мегабайт

СРОЧНО! Найдите все трехзначные числа…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: