a)
program a;
uses crt;
var i,N:integer;
write('Nhap so N: '); readln(N);
writeln('Bang nhan ',N,' la: ');
for i:=1 to 10 do
writeln(N,' x 'i:2,' = 'N*i:3);
readln;
end.
b)
program b;
uses crt;
var T:real;
i:integer;
begin clrscr;
T:=0;
for i:=1 to 100 do
T:=T+(1/i);
writeln('Tong T la: ',T:4:2);
readln;
end.
c) Ví dụ về khai báo biến mảng:
var A:array[1..100] of integer;
var Diem:array[1..41] of real;
Học tốt!