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

Question

Пантелей

13 сентября, 22:21

+5

Ответы (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.