Ответы на вопрос:
var
n, s: integer;
begin
write ('введите натуральное число: ');
read (n);
s : = trunc (sqrt (n));
writeln ('целый квадратный корень из ' + inttostr (n) + ' = ' + inttostr (s));
readln;
end;
Популярно: Информатика
-
nikita11228925.06.2022 16:34
-
stanislavgulya26.08.2022 23:01
-
Vainax30.03.2021 14:02
-
yulia626327.05.2022 02:40
-
Olga83110608.07.2021 20:43
-
саша2331002.02.2020 07:48
-
KasiaW02.02.2023 06:16
-
1delicious1apple21.07.2022 15:33
-
Pomogiteπ19.01.2023 05:43
-
данил193117.10.2020 18:24