Информатика, опубликовано 2018-08-22 22:21:59 by Гость
Выведите все четные числа в диапазоне от 2 до 100 двумя разными способами; с использованием цикла FOR и с использованием цикла WHILE
Ответ оставил Гость
Var i:integer;
begin
writeln(Цикл For);
for i:=2 to 100 do
if i mod 2 =0 then writeln(i);
writeln(Цикл While);
i:=2;
while i writeln(i);
i:=i+2;
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на