Нуждаюсь в решении. - Паскаль, Turbo Pascal, PascalABC.NET - Страница 4

Alex11223 · 28.06.2011, 14:44

Кстати, тогда уж наверно цикл должен быть for i:=a to b

Mad_Cat · 28.06.2011, 16:15

Код:

var i,a,b:integer;
begin
read(a,b);
For i:= a to b do
if (sqrt(i)-trunc(sqrt(i)))<=0.0000001 then writeln(i);
readln;
end.

28.06.2011, 14:44	#31
Alex11223 Старожил Регистрация: 12.01.2011 Сообщений: 19,500	Кстати, тогда уж наверно цикл должен быть for i:=a to b Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223 ЛС отключены Аларом.

28.06.2011, 16:15	#32
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `var i,a,b:integer; begin read(a,b); For i:= a to b do if (sqrt(i)-trunc(sqrt(i)))<=0.0000001 then writeln(i); readln; end.` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"