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

var

n, s: Integer;

begin

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

Read (n);

s := trunc (sqrt (n));

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

Readln;

end;

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

Milka0102    3   14.05.2020 10:27    2