Question

Оператор варианта. на паскале срочно.

1. Вывести нечетные целые числа от 1 до 20
2.Вывести четные целые числа от 15
до 40

Answer 1

1/
var i:integer;
begin
for i:=1 to 20 do begin
if i mod 2=1 then write(i, '  ');
end;
end.

2/
var i:integer;begin
for i:=15 to 40 do begin
if  i mod 2=0 then write(i,'  ');
end;
end.

Answer 2

program pr; var i:integer; begin for i:=1 to 20 do if (i mod 2=1) then write(i,' '); writeln(); for i:=15 to 40 do if (i mod 2=0) then write(i,' '); end.