Hoàng Văn Quyền's Profile

program chuongtrinh;

uses crt;

var n, i: integer;

var S: real;

begin

write('Nhap vao n: '); readln(n);

S:=0;

for i:=1 to n do S:=S+1/i;

writeln('Tong S la: ',S:5:2);

writeln('Nhan enter de ket thuc');

readln

end.

program chuongtrinh;

uses crt;

var n, i: integer;

begin

write('Nhap n: '); readln(N);

writeln('Cac so chia het cho 10 la: ');

for i:= 1 to N do 

if i mod 10 = 0 then write(i,'; ');

writeln(' ');

writeln('Nhan enter de ket thuc');

readln

end.

program kiemtra_uocchung;
uses crt;
var a, b, c: integer;
begin
  write('Nhap so a: '); readln(a);
  write('Nhap so b: '); readln(b);
  write('Nhap so c: '); readln(c);
  if a*b mod c = 0 then writeln('c la uoc chung cua ab') else writeln('c khong la uoc chung cua ab');
  writeln('Nhan enter de ket thuc');
  readln
end.

Var a:array[1..80] of integer; 

program luyentap;

uses crt;

var n, i, max, min: integer;

var a:array[1..10000] of integer;

begin

write('Nhap gia tri n: '); readln(n);

for i:= 1 to n Do 

begin

write('Nhap so thu ',i,': '); readln(a[i]); 

end;

Max:= a[i]; Min:= a[i];

writeln('Day so nguyen vua nhap la: ');

for i:= 1 to n do

begin

if Max < a[i] then Max:= a[i];

if Min > a[i] then Min:= a[i];

write(a[i],'; ');

end;

writeln(' ');

writeln('So lon nhat la: ',Max); writeln('So be nhat la: ',Min);

writeln('Nhan enter de ket thuc');

readln

end.

program luyentap;

uses crt;

var S, i: Integer;

var a:array[1..10] of Integer;

begin

S:= 0;

for i:= 1 to 10 Do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

if a[i]>0 then S:= S + a[i];

end;

writeln('Tong cac so lon hon 0 la: ',S);

writeln('Nhan enter de ket thuc');

readln

end.

1v = 90 độ nha bạn (góc vuông)