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

Question

Пантелей

17 февраля, 17:32

+5

Ответы (2)

Знаете ответ?

Оня · Answer 1

Var

i:longint;

begin

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

end.

Федорыч · Answer 2

Program z1;

Var

i: integer;

Begin

For i:=1 to 40 do begin

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

End;

End.

Это в паскале