Question

Напишите программу, которая получает с
клавиатуры натуральное число и вычисляет целый
квадратный корень из него – наибольшее число,
квадрат которого не больше данного числа.

PASCAL ABC

ВНИМАНИЕ!!!!!!! РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR

Answer 1

Ответ:

var

 n, s: Integer;

begin

  Write ('Введите натуральное число: ');

  Read (n);

  s := trunc (sqrt (n));

  Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));

  Readln;

end;

Объяснение:

Answer 2

Да это исходную задачу переврал учитель или кто там ее задал. В оригинале было не про циклы, а запрет на извлечение квадратного корня.