Question

ИСПОЛЬЗУЯ ЦИКЛ For или While ПАСКАЛЬ 30 БАЛЛОВ!!
напишите программу которая в последовательности натур чисел определяет сумму чисел оканчивающих на 9 и их количество .Программа получает нв вход натур числа количество введенных чиспл неизвестно,последовательность чисел заканчивается числом 0(0-признак окончания ввода,не входит в последовательность)Программа должна вывести сумму чисел,оканчивающихся на 9 и их количество​

Answer 1

var s,a,k: integer;

begin

readln(a);

k:=0;

s:=0;

while(a<>0) do begin

if(a mod 10=9) then begin

s:=s+a;

k:=k+1;

end;

readln(a);

end;

writeln('s=',s);

write('k=',k);

end.