Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа - Pascal

Узнай цену своей работы

Формулировка задачи:

Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа. Запросы продолжаются до тех пор, пока пользователь не введет отрицательное число.

Решение задачи: «Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа»

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

Объяснение кода листинга программы

  1. var x: integer; - объявление переменной x типа integer
  2. repeat - начало цикла повторения
  3. writeln('Введите положительное число: '); - вывод сообщения для ввода числа
  4. readln(x); - чтение числа из ввода
  5. if x>=0 then - проверка условия x больше или равно нулю
  6. writeln('Корень квадратный из ',x,' = ',sqrt(x)); - вывод результата корня квадратного из x
  7. until x<0; - продолжение цикла до тех пор, пока x меньше нуля
  8. end. - завершение программы

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы