Найти сумму первых десяти двухзначных чисел, кратных 5. Вывести на экран эти числа и сумму.

Question

Информатика

Егуня

9 апреля, 11:56

Найти сумму первых десяти двухзначных чисел, кратных 5. Вывести на экран эти числа и сумму.

+5

Ответы (1)

Знаете ответ на вопрос?

Фомаида · Answer 1

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.