Ответ:
900
Объяснение:
var a,b,c,e,n:integer;
d:real;
begin
while a<100000 do
b:=sqr(a)+(61*a);
c:=0;
d:=sqrt(b);
while c<100000 do
if d=c then writeln(a);
c:=c+1;
end;
a:=a+1;
end.
Yes
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
900
Объяснение:
var a,b,c,e,n:integer;
d:real;
begin
while a<100000 do
begin
b:=sqr(a)+(61*a);
c:=0;
d:=sqrt(b);
while c<100000 do
begin
if d=c then writeln(a);
c:=c+1;
end;
a:=a+1;
end;
end.
Ответ:
900
Объяснение:
Yes