Предмет: Информатика,
автор: yaroslav548925
ИСПОЛЬЗУЯ ЦИКЛ 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.
Похожие вопросы
Предмет: Математика,
автор: conorome
Предмет: Математика,
автор: daneilantonuuk
Предмет: География,
автор: berezaalinka553
Предмет: Математика,
автор: УлькаДулька