Напишите программу, которая получает с клавиатуры натуральное число и вычисляет целый квадратный корень из него – наибольшее число, квадрат которого не больше данного числа.
Язык-PascalABC
Ответы
Ответ дал:
0
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад