Đề bài; Viết phương trình pascal cho số tự nhiên n,xuất dãy số chẵn 2 4 6 … 2n và dãy số lẽ 3 5 7 … (2n+1)
Input: số tự nhiên n
Output: 2 Dãy số chẵn và lẽ (Cách nhau 1 dòng)
VD: n=3
Nên sẽ là 2 4 6 ( 6=2*3)
1 3 5 7 (7=(2*3)+1)
Cám ơn nhiều ạ
program ct;
uses crt;
var i,n:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
write(‘Xuat: ‘);
for i:=1 to (2*n) do
if i mod 2=0 then write(i,’ ‘);
writeln;
for i:=1 to (2*n+1) do
if i mod 2=1 then write(i,’ ‘);
readln;
end.
Học tốt!
program oken;
uses crt;
var n,i: longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Day so chan: ‘);
for i:= 1 to (2*n) do
if i mod 2=0 then
write(i,’ ‘);
writeln; write(‘Day so le: ‘);
for i:=1 to (2*n+1) do
if i mod 2=1 then
write(i,’ ‘);
readln;
end.