Исправьте program infinity; const pi=3.14; begin - вопрос №8996870314 от varvarec 24.12.2022 05:44

Question

Информатика: Исправьте program infinity; 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 паскаль абс ошибка ожидался интефикатор но вар обнаружен

varvarec · Answer

Поставил точку в конце, добавил пару запятых и убрал ";" после 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.