Задать вопрос
11 октября, 00:52

Помогите найти ошибку

program w5555;

var s, r2, r1:Real;

begin

readln (r1, s) ;

r2:=sqrt ((Pi*r1-s) / Pi) ; язык-Паскаль

writeln (r2:1:2) ;

end.

+3
Ответы (2)
  1. 11 октября, 02:35
    0
    В программе синтаксических ошибок нет, она компилируется и работает. Поскольку постановка задачи не приведена, оценить, насколько она выполняет свою функцию, невозможно.
  2. 11 октября, 04:31
    0
    Process killed, because it ran longer than 10 seconds. Is your code waiting for keyboard input which is not supplied?

    Процесс был убит, потому что он длился более 10 секунд. Ваш код ожидает ввода клавиатуры, который не поставляется?

    Нужно ввести ввод на клаве. Внизу поле должно быть,
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите найти ошибку program w5555; var s, r2, r1:Real; begin readln (r1, s) ; r2:=sqrt ((Pi*r1-s) / Pi) ; язык-Паскаль writeln (r2:1:2) ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)