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