Задать вопрос
5 июля, 20:44

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

program w5555;

var s, r2, r1:Real;

begin

readln (r1, s) ;

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

writeln (r2:1:2) ;

end.

+2
Ответы (2)
  1. 5 июля, 21:30
    0
    В программе синтаксических ошибок нет, она компилируется и работает. Поскольку постановка задачи не приведена, оценить, насколько она выполняет свою функцию, невозможно.
  2. 5 июля, 22:41
    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) ; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Где здесь ошибка 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)
Почему выводится ноль в программе? 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)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)
Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;
Ответы (1)