Question

ПОМОГИТЕ ПОЖАЛУЙСТА Запустите интегрированную среду программирования. Составьте програмный код для задачи,,Дан радиус круга r=2,определите диаметр круга,,

Answer 1

var D,R:integer;

begin

writeln('Введите значение R: ');

readln(r);

D:=2*R;

writeln('D = ',D);

end.