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