a)Viết chương trình nhập vào từ bàn phím hai số nguyên a và bin ra màn hình số lớn hơn
b)Viết chương trình tính tổng các số tự nhiên từ 1 đến n với n nhập vào từ bàn phím
a)Viết chương trình nhập vào từ bàn phím hai số nguyên a và bin ra màn hình số lớn hơn
b)Viết chương trình tính tổng các số tự nhiên từ 1 đến n với n nhập vào từ bàn phím
a)
program Min;
uses crt;
var a,b:integer;
begin
clrscr;
write(‘Nhap a,b: ‘); readln(a,b);
if a>b then write(a,’ lon hon ‘,b) else
if a<b then write(a,’ nho hon ‘,b) else write(a,’ bang ‘,b);
readln
end.
b)
program Min;
uses crt;
var i,n,S:integer;
begin
clrscr;
S:=0;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do S:=S+i;
writeln(‘Tong la: ‘,S);
readln
end.
a)
Program BTT;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write(‘Nhap a va b: ‘); Readln(a,b);
If a>b then Write(a,’ lon hon ‘,b)
Else If a<b then Write(b,’ lon hon ‘,a)
Else Write(‘Bang nhau’);
Readln
End.
b)
Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Write(‘S = ‘,s);
Readln
End.