Исправьте код пж даю 20 б
Program(infinity);
Begin
Const PI=3.14;
Var(I,S,r):real;
Writeln(BBEDI RADIYS);
readln(r);
I:=2*PI*r;
S:=PI*r*r;
Writeln(`I=`,I `S=`,S);
End
Ошибка ожидался Интефикатор
Паскаль АВС
Ответы на вопрос
Ответил Аноним
0
Program infinity;
Const PI=3.14;
begin
Var I,S,r:real;
Writeln('BBEDI RADIYS');
readln(r);
I:=2*PI*r;
S:=PI*r*r;
Writeln('I=',I,'S=',S);
End.
Const PI=3.14;
begin
Var I,S,r:real;
Writeln('BBEDI RADIYS');
readln(r);
I:=2*PI*r;
S:=PI*r*r;
Writeln('I=',I,'S=',S);
End.
Ответил Аноним
0
Ну и в чем тут нарушение?
Ответил Аноним
0
"Quos Deus perdere vult dementat prius" ( лат. "Кого Бог хочет погубить, того он сначала лишает разума")
Ответил Аноним
0
"Поздравляю тебя, Шарик, ты - балбес" (с)
Ответил 19473кол
0
код не работает
Ответил Аноним
0
А у меня нормально работает, представляете?
Новые вопросы
Українська мова,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад
Математика,
9 лет назад