Program while;
var
n, k: integer;
begin
write('Введите число: ');
readln(n);
while sqr(k) <= n do
inc(k);
dec(k);
writeln(k);
end.

mika183    1   31.01.2021 17:05    1