Исправьте

Program infinity;

Const pi=3.14;

Begin

Var; L, S, R:real;

Writeln ('Введи радиус') ;

readln (R) ;

L:=2piR;

S:=piRR;

Writeln ('Площадь круга:', S 'длина окружности = ', L) ;

End

паскаль абс Ошибка ожидался интефикатор но вар обнаружен

Question

Информатика

Косетта

19 августа, 11:47

Исправьте

Program infinity;

Const pi=3.14;

Begin

Var; L, S, R:real;

Writeln ('Введи радиус') ;

readln (R) ;

L:=2piR;

S:=piRR;

Writeln ('Площадь круга:', S 'длина окружности = ', L) ;

End

паскаль абс Ошибка ожидался интефикатор но вар обнаружен

+4

Ответы (1)

Знаете ответ на вопрос?

Ахливан · Answer 1

Поставил точку в конце, добавил пару запятых и убрал "; " после var и у меня всё заработало

Program n_5;

Const pi=3.14;

Begin

Var

L, S, R:real;

Writeln ('Введи радиус') ;

readln (R) ;

L:=2*pi*R;

S:=pi*R*R;

Writeln ('Площадь круга: ', S, 'длина окружности = ', L) ;

End.