Найти сумму первых десяти двухзначных чисел, кратных 5. Вывести на экран эти числа и сумму.
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write(Двухзначные числа кратные 5: );
while(i<=50) do
begin
write(i, );
s:=s+i;
i:=i+5;
end;
writeln;
writeln(Сумма 10 двухзначных чисел кратных 5: ,s);
readkey;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
