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

Составьте программу вычисления количества трёхзначных чисел, которые кратны 100 или 43.

Ответ оставил Гость

var
i,n: integer;
begin
n:=0;
for i:=100 to 999 do
if (i mod 100=0) or (i mod 43=0) then
   begin
   n:=n+1;
   writeln (i);
   end;
writeln (количество чисел кратных 100 или 43= ,n);
end.

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

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