uses crt;
var N, i: integer;
begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan, ',N);
writeln;
for i:=1 to 10 do
begin
GotoXY(5,WhereY);
writeln(N,'x',i:2,'=',N*i:3);
writeln
end;
readln
end.
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
const
fi='sochinhphuong.inp';
fo='sochinhphuong.out';
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
if (sqr(trunc(sqrt(n)))=n) then exit (true);
exit (false);
end;
begin
assign(f,fi);reset(f);
assign(g,fo);rewrite(g);
readln(f,n);
if scp(n) then writeln(g,'yes') else
writeln(g,'no');
close(f);close(g);
end.
Tệp tin (file) là tập hợp các thông tin có liên quan với nhau được lưu trữ trên bộ nhỡ ngoài
Const pi:= 3.14;
Var cv:integer -> Thiếu dấu ; khi kết thúc 1 câu lệnh nào đó. (Var cv:integer; )
R:real;
Begin
R:=5.5;
Cv=2*pi*r;
Writeln('chu vi la:=cv'); -> Câu lệnh không lỗi nhưng để in ra kết quả thì biến cv cần nằm ở ngoài dấu nháy. ( Writeln('chu vi la= ',cv); )
Readln
End.