Напишите программу, которая получает с
клавиатуры натуральное число и вычисляет целый
квадратный корень из него – наибольшее число,
квадрат которого не больше данного числа.
PASCAL ABC
ВНИМАНИЕ!!!!!!! РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR
Ответы
Ответ дал:
0
Ответ:
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
Объяснение:
Ответ дал:
0
Да это исходную задачу переврал учитель или кто там ее задал. В оригинале было не про циклы, а запрет на извлечение квадратного корня.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад