Câu 1:
program kaito;
uses crt;
begin
clrscr;
writeln(' * ');
writeln('* * *');
writeln(' * ');
readln
end.
Câu 2:
program kaito;
uses crt;
begin
clrscr;
writeln('2 x (1/5+2^3) = ',2*(1/5+2*2*2));
readln
end.
Câu 3:
program kaito;
uses crt;
var s, r: real;
const pi=3.14;
begin
clrscr;
write('Nhap ban kinh r = '); readln(r);
s:=pi*r*r;
writeln('Dien tich hinh tron la: ',s);
readln;
end.
Câu 4:
program kaito;
uses crt;
var a, b: integer;
begin
clrscr;
write('Nhap so tuoi cua anh: '); readln(a);
write('Nhap so tuoi cua em: '); readln(b);
if a<b then writeln('Em nhieu tuoi hon.')
else
if a=b then writen('Hai anh em bằng tuoi nhau.')
else writeln('Anh nhieu tuoi hon.');
readln;
end.
Câu 5:
program kaito;
uses crt;
var s, i, n: integer;
begin
clrscr;
write('n = '); readln(n);
for i:=1 to n do s:=s+i;
writeln('Tong S = ',s);
readln;
end.
câu 6:
program kaito;
uses crt;
var n, s: integer;
begin
clrscr;
while s<1000 do begin n:=n+1; s:=s+n; end;
writeln('Tong S = ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!
