1. Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
2.Viết chương trình in ra màn hình n số nhập vào từ bàn phím.
3. Viết chương trình in ra màn hình n số chẵn(lẻ) liên tiếp
LÀM NHIÊU CÂU CŨNG ĐƯỢC, NHƯNG LÀM GIÚP MÌNH NHANH NHANH NHA
MAI KT RỒI
1. Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
uses crt;
const n:=10;
var i: interger;
begin
clrscr;
for i:=1 to n do writeln(i:10);
readln
end.
~ chạy nó sẽ ra vầy
1 2 3 4 5 6 7 8 8 10
2.Viết chương trình in ra màn hình n số nhập vào từ bàn phím.
uses crt;
var a:array [1…100] of integer;
n,i:interger;
begin
clrscr;
writeln(‘nhap so hang tu n ban can nhap:’);readln(n);
for i:=1 to n do begin
writeln(‘nhap hang tu:’);read;
writeln(‘a[‘,i,’]’); readln(a[i] );
end;
for i:=1 to n do
writeln(‘cac hang tu vua nhap la :’,a[i]);
readln
end.
~chạy nó sẽ ra ntn
nhap so hang tu n ban can nhap : 3(mình nhập là 3)
nhap cac hang tu a[1]:3
a[2]:5
a[3]:9
cac hang tu vua nhap la 3
cac hang tu vua nhap la 5
cac hang tu vua nhap la 9
1.
program C1;
uses crt;
var i: byte;
Begin
clrscr;
for i:=1 to 10 do write(i,’ ‘);
readln
End.
2.
program C2;
uses crt;
var A: array [1..100] of integer;
n,i: byte;
Begin
clrscr;
write(‘Nhap so luong so: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac so vua nhap vao la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln
End.
3.
program chan_le;
uses crt;
var A: array [1..100] of integer;
n,i: byte;
Begin
write(‘Nhap so luong so: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac so chan lien tiep: ‘);
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
writeln;
write(‘Cac so le lien tiep: ‘);
for i:=1 to n do
if A[i] mod 2<>0 then write(A[i],’ ‘);
readln
End.