Исправьте
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
паскаль абс Ошибка ожидался интефикатор но вар обнаружен
Исправьте
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
паскаль абс Ошибка ожидался интефикатор но вар обнаружен
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 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program infinity;
Const pi=3.14;
Begin
Var L, S, R: real;
Writeln('Введите радиус');
readln(R);
L:=2piR;
S:=piRR;
Writeln('Площадь круга: ', S, ' длина окружности = ', L);
End.