РЕШИТЬ ЧЕРЕЗ ЦИКЛЫ WHILE, REPEAT или FOR

xaetrmsmirnov xaetrmsmirnov    1   06.05.2020 12:49    9

Ответы
natalyiphonep0725u natalyiphonep0725u  06.05.2020 13:30

var

 n, s: Integer;

begin

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

  Read (n);

  s := trunc (sqrt (n));

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

  Readln;

end;

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика