Разберите и выполните программу, выходящую на эран вск четные числа в интервале от 1 до 40

Question

Петоша

29 декабря, 03:25

+2

Ответы (2)

Знаете ответ на вопрос?

Амата · Answer 1

Program z1;

Var

i: integer;

Begin

For i:=1 to 40 do begin

If (i mod 2=o) then writeln (i) ;

End;

End.

Это в паскале

Флавий · Answer 2

Var

i:longint;

begin

for i:=1 to 40 do If odd (i) then else write (i' ') ;

end.