Составить программу нахождения четных чисел от 1 сотни
Составить программу нахождения четных чисел от 1 сотни
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var i:byte;
begin
for i:=1 to 100 do begin
if (i mod 2)=0 then begin
write(i,' ')
end
end;
readln
end.
Не нашли ответ?
Похожие вопросы