Программирование паскаль Вводятся целые числа a и b. Гарантируется, что a не превосходит...

Question

Программирование паскаль Вводятся целые числа a и b. Гарантируется, что a не превосходит b. Выходные данные Выведите все числа на отрезке от a до b, являющиеся полными квадратами.

Answer 1

Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, вэлком в те же коментарии.

Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:

Comments

program laba;

var
a,{нижний придел последовательности}
b,{верхний придел последовательности}
i{счётчик цикла}
: integer;

var
realSqrt{в этой переменной проводим расчёты}
: real;

---

begin

Write('Enter A: ');
Readln(a);{вводим a}

Write('Enter B: ');
Readln(b);{вводим b}

Write('Square numbers is: ');

for i:=a to b do {цикл от a, до b}
begin
realSqrt:=Sqrt(i); {получаем квадратный корень из числа на текущей итерации цикла}
if 0 = frac(realSqrt) then {получаем из этого числа дробную часть, если она равняется 0, то число является "полным квадратом"}
begin
Write(i, '; '); {выводим данное число на экран}
end;
end;

end.