Задать вопрос
13 декабря, 16:06

Почему паскаль abc выдает ошибку Встречено 'writeln', а ожидалось ':'

program n_2;

const pi=3.14;

var r, c, s: real;

bedin

writeln ('Вычисление длины окружности и площади круга') ;

write ('Введите r>>') ;

readln (r) ;

c: = 2*pi*r;

s:=pi*r*r;

writeln ('c=', c:6:4) ;

writeln ('s=', s:6:4)

end.

+4
Ответы (1)
  1. 13 декабря, 18:24
    +1
    Ты написал вместо "begin" bedin. И за константу Pi брать не надо. В системе Pi уже есть, поэтому начальные значения ей давать не нужно. У тебя программа должна выглядеть вот так:

    program n_2;

    var r, c, s: real;

    begin

    writeln ('Вычисление длины окружности и площади круга') ;

    write ('Введите r>>') ;

    readln (r) ;

    c: = 2*pi*r;

    s:=pi*r*r;

    writeln ('c=', c:6:4) ;

    writeln ('s=', s:6:4)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Почему паскаль abc выдает ошибку Встречено 'writeln', а ожидалось ':' program n_2; const pi=3.14; var r, c, s: real; bedin writeln ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Program n_66; var x, max:real; i: integer; begin writeln ('Введите число') ; readln (max) ; for i:=1 to 9 do begin writeln (x) ; if x>max then max:=x end writeln ('максимум - ', max') ; end. Встречено '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)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Составить блок схемы program n_2; var x, y: real; begin writeln ('Введите x') ; readln (x) ; writeln ('Введите y') ; readln (y) ; y:=x+5 x; =y*y writeln ('y=', y) ; end. Что получиться если х=3, а у=5.
Ответы (1)