Информатика, опубликовано 2018-08-22 21:57:08 by Гость
ПАСКАЛЬ подсчитать количество трёхзначных чисел кратных 50
Ответ оставил Гость
Program zd;
var
i,n:100..999;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 50=0 then
k:=k+1;
writeln(Количество= ,k);
end.
вроде бы так
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.