Tin học Tìm số chính phương

[Duyên 13012005]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Số chính phương là số có căn bậc hai là một số nguyên. Viết chương trình nhập tìm số chính phương có 4 chữ số biết rằng 2 số trước giống nhau 2 số sau giống nhau
(giúp mình với tuần sau thi r)

 

[Duyên 13012005]

Đây là Toán đâu phải Tin

Tin âk bạn. Viết chương trình mà

 

[TTree]

mình có trả lời post trước của bạn rồi nè .-.
var i,n:longint; s:string;
begin
for i:=1000 to 9999 do
if (frac(sqrt(i)))=0 then
begin
str(i,s); str(i,s);
if (s[1]=s[2]) and (s[3]=s[4]) then
begin n:=i; break; end;
end;
writeln(n);
readln;
end.

 

[Duyên 13012005]

A

mình có trả lời post trước của bạn rồi nè .-.
var i,n:longint; s:string;
begin
for i:=1000 to 9999 do
if (frac(sqrt(i)))=0 then
begin
str(i,s); str(i,s);
if (s[1]=s[2]) and (s[3]=s[4]) then
begin n:=i; break; end;
end;
writeln(n);
readln;
end.

À mình nhớ r bài này bạn giải ở post trước mà mình quên

 

[lehongli]

mình có trả lời post trước của bạn rồi nè .-.
var i,n:longint; s:string;
begin
for i:=1000 to 9999 do
if (frac(sqrt(i)))=0 then
begin
str(i,s); str(i,s);
if (s[1]=s[2]) and (s[3]=s[4]) then
begin n:=i; break; end;
end;
writeln(n);
readln;
end.

Thay vì chạy từ 1000-9999 mình sẽ chạy từ 10 đến 99 thôi là cùng hoặc tốt hơn nếu bạn biết số gần nhất của nó, chạy 1000 nhiều quá

 

[Duyên 13012005]

Thay vì chạy từ 1000-9999 mình sẽ chạy từ 10 đến 99 thôi là cùng hoặc tốt hơn nếu bạn biết số gần nhất của nó, chạy 1000 nhiều quá

Đề yêu cầu 4 chữ số nha

 

[lehongli]

Đề yêu cầu 4 chữ số nha

Mình biết, nhưng đã biết xài string thì phải tận dụng chứ.

 

[Duyên 13012005]

Mình biết, nhưng đã biết xài string thì phải tận dụng chứ.

Bài này giải rồi mà mình cũng chưa hiểu lắm

 

[TTree]

Không cần string luôn nhaaa :V.
var i,j:longint;
begin
for i:=10 to 99 do
begin
j:=(i div 10)*1100+(i mod 10)*11;
if frac(sqrt(j))=0 then write(j,' ');
j:=0;
end;
readln;
end.