CÂU 1 Viết chương trình nhập hai số nguyên a,b khác nhau từ bàn phím và in ra hai số đó ra màn hinh theo thứ tự không giảm.
CÂU 2 viết chương trình tính M với N là số tự nhiên đc nhập từ bàn phím.
CÂU 3 viết chương trình cộng của n số nguyên > x1,x2,x3,x4,……x5 với n và x1,x2,x3,x4……x5 nhập từ bàn phím .
CÂU 4 viết chương trình nhập số nguyên N và kt N có phải là số nguyên tố ko?
CÂU 5 viết chương trình nhập vào một mảng vào in ra màn hình vừa nhập.
CÂU 1 Viết chương trình nhập hai số nguyên a,b khác nhau từ bàn phím và in ra hai số đó ra màn hinh theo thứ tự không giảm. CÂU 2 viết chương trình tí
By Adeline
Câu 1:
uses crt;
var a,b:longint;
begin
clrscr;
write(‘Nhap a,b: ‘);readln(a,b);
if a>b then writeln(b,’ ‘,a) else writeln(a,’ ‘,b);
readln
end.
Câu 2: Đề không rõ lắm.
Câu 3:
uses crt;
var i,n:longint; x:array[1..10000000]of longint; s:real;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘x[‘,i,’]= ‘);readln(x[i]);
s:=s+x[i];
end;
writeln(‘Trung binh cong: ‘,s/n:0:2);
readln
end.
Câu 4:
uses crt;
var n,i:longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
i:=2;
while(n>1)and(n mod i<>0)do inc(i);
if i=n then writeln(‘N la so nguyen to’) else
writeln(‘N khong la so nguyen to’);
readln
end.
Câu 5:
uses crt;
var n,i:longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
i:=2;
while(n>1)and(n mod i<>0)do inc(i);
if i=n then writeln(‘N la so nguyen to’) else
writeln(‘N khong la so nguyen to’);
readln
end.
C3:
Uses crt;
Var n,i:integer;
da,x: longint;
Begin
Clrscr;
Writeln(‘Nhap N vao day: ‘); Readln(n);
i:= 0; da:= 0;
While i < n do
Begin
i:= i + 1;
Writeln(‘Nhap X ‘,i,’: ‘); Readln(x);
da:= da + x;
End;
Writeln(‘Trung binh cong cua ‘,n,’ so nguyen la: ‘,da / n:0:2);
Readln
End.
C4:
Uses Crt;
Var n,i,k:longint;
Begin
Clrscr;
Writeln(‘Nhap N=’); Readln(n);
k:=0;
For i:=1 to n do
If n mod i = 0 then k:=k+1;
If k=2 then writeln (”,n, ‘ la so nguyen to’);
Readln;
End.
C5:
Uses Crt;
Var n,i: Integer;
A:array[1..10] of integer;
Begin
Clrscr;
Write(‘ Nhap n=’); Readln(n);
For i:=1 to n do
Begin
Writeln(‘A[‘,i,’]=’); Readln(A[i]);
End;
For i:=1 to n do Write(A[i]:2);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé!Thanks
P/s: Hỏi và đáp, comment ở dưới!