1. Вывести нечетные целые числа от 1 до 20 2.Вывести четные целые числа от 15 до 40
Answers & Comments
infor5
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.
0 votes Thanks 2
igroman95
Program pr;var i:integer;beginfor 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.
Answers & Comments
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.