Информатика, опубликовано 2018-08-22 23:09:07 by Гость

Паскаль: Найти сумму и количество всех трехзначных чисел, кратных 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.