Программа запрашивает число и выдает корень квадратный из заданного числа. Запросы продолжаются до тех пор, пока пользователь не введет отрицательное число- Pascal(Паскаль)

var x:integer;
begin
  repeat
  writeln('Введите положительное число: ');
  readln(x);
  if x>=0 then writeln('Корень квадратный из ',x,' = ',sqrt(x));
  until x<0;
end.

Похожие записи/страницы:

Leave a Comment

94 − = 88