Выведите на экран в строку все числа первой сотни, но только четные
Выведите на экран в строку все числа первой сотни, но только четные
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin
for a:=1 to 100 do begin
if a mod 2 = 0 then write(' ',a,' ');
end;
end.
Не нашли ответ?
Похожие вопросы