Câu 1:
uses crt;
var f:text;
a,b:longint;
begin
clrscr;
write('Nhap hai so: '); readln(a,b);
write('Hieu hai so vua nhap: ',a-b);
assign(f,'hieunguyen.cpp'); rewrite(f);
write(f,'Hieu hai so vua nhap: ',a-b);
close(f);
readln;
end.
Câu 2:
uses crt;
var f:text;
a,b:longint;
begin
clrscr;
write('Nhap chieu dai, chieu rong: '); readln(a,b);
write('Dien tich HCN: ',a*b);
assign(f,'dientichhcn.cpp'); rewrite(f);
write(f,'Dien tich HCN: ',a*b);
close(f);
readln;
end.
Câu 3:
uses crt;
var f:text;
s,i:longint;
begin
clrscr;
s:=0;
for i:=0 to 100 do if i mod 10=5 then inc(s,i);
write('Tong: ',s);
assign(f,'tongdv5.cpp'); rewrite(f);
write(f,'Tong: ',s);
close(f);
readln;
end.
