напишите программу на Pascal
в последовательности натуральных чисел найти сумму всех двухзначных чисел которые начинаются на 5. ввод чисел заканчиваются 0
Ответы
Ответ дал:
0
var a,s: integer;
begin
repeat
readln(a);
if (a>9) and (a<100) and (a div 10 = 5) then s:=s+a;
until a = 0;
writeln(s);
end.
begin
repeat
readln(a);
if (a>9) and (a<100) and (a div 10 = 5) then s:=s+a;
until a = 0;
writeln(s);
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад