38 lines
558 B
ObjectPascal
38 lines
558 B
ObjectPascal
// Öèêë for. Øàã öèêëà 2
|
|
const n = 25;
|
|
|
|
var i: integer;
|
|
|
|
begin
|
|
writeln('×åòíûå ÷èñëà îò 1 äî ',2*n);
|
|
for i:=1 to n do
|
|
write(2*i,' ');
|
|
writeln;
|
|
writeln;
|
|
|
|
writeln('×åòíûå ÷èñëà îò 1 äî ',2*n);
|
|
var x := 2;
|
|
for i:=1 to n do
|
|
begin
|
|
write(x,' ');
|
|
x += 2;
|
|
end;
|
|
writeln;
|
|
writeln;
|
|
|
|
writeln('Íå÷åòíûå ÷èñëà îò 1 äî ',2*n);
|
|
for i:=1 to n do
|
|
write(2*i-1,' ');
|
|
writeln;
|
|
writeln;
|
|
|
|
writeln('Íå÷åòíûå ÷èñëà îò 1 äî ',2*n);
|
|
x := 1;
|
|
for i:=1 to n do
|
|
begin
|
|
write(x,' ');
|
|
x += 2;
|
|
end;
|
|
writeln;
|
|
writeln;
|
|
end. |