Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию:сумма значений цифр десятичной записи числа равно 10
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.