Паскаль:

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

Question

Информатика

Варюша

31 июля, 12:13

Паскаль:

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

+4

Ответы (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