Паскаль:

Найти сумму и количество всех трехзначных чисел, кратных 100

Question

Информатика

Жанна

1 февраля, 21:46

Паскаль:

Найти сумму и количество всех трехзначных чисел, кратных 100

+2

Ответы (1)

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

Мана · Answer 1

Var

i, k, sum:Integer;

Begin

for i:=1 to 999 do

begin

if (i mod 100 = 0) then

begin

Inc (k) ;

sum:=sum+i;

end;

end;

Writeln ('Количество = ', k) ;

Writeln ('Сумма = ', sum) ;

end.

Паскаль:Найти сумму и количество всех трехзначных чисел, кратных 100

Паскаль:

Найти сумму и количество всех трехзначных чисел, кратных 100