Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа - Pascal
Формулировка задачи:
Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа. Запросы продолжаются до тех пор, пока пользователь не введет отрицательное число.
Решение задачи: «Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа»
textual
Листинг программы
var x:integer;
begin
repeat
writeln('Введите положительное число: ');
readln(x);
if x>=0 then writeln('Корень квадратный из ',x,' = ',sqrt(x));
until x<0;
end.
Объяснение кода листинга программы
- var x: integer; - объявление переменной x типа integer
- repeat - начало цикла повторения
- writeln('Введите положительное число: '); - вывод сообщения для ввода числа
- readln(x); - чтение числа из ввода
- if x>=0 then - проверка условия x больше или равно нулю
- writeln('Корень квадратный из ',x,' = ',sqrt(x)); - вывод результата корня квадратного из x
- until x<0; - продолжение цикла до тех пор, пока x меньше нуля
- end. - завершение программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д