cyganka84

24.08.2022 07:09 •  Информатика

НЕОБХОДИМО РЕШИТЬ ЧЕРЕЗ ЦИКЛ С ПОСТУСЛОВИЕМ, ОТВЕТ ТИПА

var

n, s: Integer;

begin

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

Read (n);

s := trunc (sqrt (n));

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

Readln;

end;

ПРИНИМАТЬСЯ НЕ БУДЕТ