Написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. размер последовательности определяет сам пользователь программы. принять, что последовательность состоит только из целых положительных чисел.

244

486

Посмотреть ответы 3

Ответы на вопрос:

romankulebyaki

Информатика

4,5(14 оценок)

//pascalabc.net //версия 3.3, сборка 1627 begin var a: =readarrinteger((x-> x mod 8=0); write('кол-во чисел, делящихся на 8 без остатка: ',a.'; сумма: ',a.; end.

NorthIndiana

Информатика

4,5(78 оценок)

Program qq; var a, b, c, d, e: integer; begin d: =0; e: =0; writeln('введите количество чисел'); readln (a); writeln ('введите числа'); for b: =1 to a do begin readln (c); if c mod 8 = 0 then d: =d+c; e: =e+1; end; writeln ('количество чисел кратных восьми - ', e, '; их сумма - ', d); end.