• Напишите программу, которая в последовательности целых чисел находит сумму и количество чисел, кратных 17, или сообщает, что таких чисел нет. На вход программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет

Ответы 1

  • var summa,count,numb :integer;beginsumma:=0;count:=0;readln(numb);while numb <> 0 dobeginif numb mod 17 = 0 thenbeginsumma:=summa+numb;count:=count+1;end;readln(numb);end;if (summa > 0) and (count > 0) thenwriteln(summa,'  ',count)else writeln('No');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years