Паскаль: Найти сумму и количество всех трехзначных чисел, кратных 100
Паскаль:
Найти сумму и количество всех трехзначных чисел, кратных 100
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы