viết chương trình nhập vào một số nguyên x tư ban phim rồi tĩnh bình
2 câu trả lời
uses crt;
var x:integer;
begin
clrscr;
write('Nhap 1 so nguyen: '); readln(x);
write('Binh phuong cua ',x,': ',x*x);
readln;
end.
viết chương trình nhập vào một số nguyên x tư ban phim rồi tính bình phương
uses crt;
var x: longint;
begin
clrscr;
write ('nhap x: '); readln (x);
writeln ('x binh phuong la: ',sqr(x));
readln;
end.
