Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10

156

218

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

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

12ал12ён12на12

Информатика

4,7(90 оценок)

Pascal const n = 100; // максимальное число элементов var a : array [1..n] of integer; l,i,c,s,k : integer; begin l : = 1; c : = 10; while c < > 0 do begin readln (c); a[l] : = c; l : = l + 1; end; l : = l -1; k : = 0; for i : = 1 to l do begin c : = a[i]; s : = 0; while c < > 0 do begin s : = s + c mod 10; c : = c div 10; end; if s = 10 then k : = k + 1; end; writeln (); writeln (k); end.