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

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.

Answer 2

Конечно! Вот исправленный код на языке Pascal:

pascalCopy code
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.

Исправления:

1. Исправлено объявление переменных, перемещено Var перед блоком начала (Begin).
2. В выражении вывода Writeln, добавлены запятые для разделения аргументов и текстовой информации.