K
Khách

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.

11 tháng 1 2023

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.

loading...

0
24 tháng 12 2022

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

24 tháng 12 2022

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

16 tháng 12 2022

12,45 ÷ 0,25 + 1,6 × 0,025 ÷ 0,125 + 50 ÷ 0,5

 

17 tháng 12 2022

Gợi ý: Bạn cần dùng 1 biến trung gian để đổi giá trị của 2 biến cần đổi

Bài làm:

tg:=a;

a:=b;

b:=tg;

16 tháng 12 2022

Tìm và sửa lại lỗi nha mn

17 tháng 12 2022

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.