Дан радиус окружности. Найти её диаметр. (код Pascal)
Answers & Comments
kirIlIne
Лол, ну ок: var r : integer; begin readln(r); writeln(r*2); end;
3 votes Thanks 3
MOPE1999
А это не правильно? program diametr; uses crt; var r:real; begin clrscr; write('введите радиус'); read(r); D:=L/π; write('D=',D:2:1); readln; end.
kirIlIne
А вы в компиляторе это чудовище запускали? Оно хоть откомпилировалось? Nein. Это неправильно, диаметр- 2 радиуса
Answers & Comments
var
r : integer;
begin
readln(r);
writeln(r*2);
end;
program diametr;
uses crt;
var r:real;
begin
clrscr;
write('введите радиус');
read(r);
D:=L/π;
write('D=',D:2:1);
readln;
end.