Dùng chương trình con của Pascal viết chương trình tính bình phương của 1 số và sau đó xuất bình phương từ 1 đến 20.
Dùng chương trình con của Pascal viết chương trình tính bình phương của 1 số và sau đó xuất bình phương từ 1 đến 20.
Program hoidap247;
uses crt;
var n,i:longint;
begin
clrscr;
write(‘Nhap 1 so: ‘);readln(n);
writeln(‘Binh phuong cua ‘,n,’= ‘,n*n);
writeln(‘Binh phuong cac so tu 1 den 20 la:’);
for i:=1 to 20 do writeln(i*i);
readln
end.
uses crt;
var i : integer;
function bp(x : integer) : integer;
begin bp:=x*x; end;
begin
for i:=1 to 20 do writeln(bp(i):3);
readln
end.