ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО, ДАМ МАКСИМАЛЬНЫЙ БАЛЛ НАПИШИТЕ ВЕРНО,3. Запустите интегрированную среду программирования. Составьте программный код для задачи: «Дан радиус круга r=2, определите диаметр окружности».
var
r : real;
d : real;
begin
write('введите радиус окружности r=');
readln(r);
d := 2*r;
writeln('диаметр равен d=2r=', d);
end.
А это точно верно? И как писать
ну диаметр равен двум радиусам так что программа считает верно для любого введенного радиуса. Хотя в твоем случае можно было сделать проще так как радиус известен заранее и равен 2. и вместо ввода радиуса с клавиатуры можно просто в программе написать r:=2;
значит вместо readln(r) r:=2
да, и write('введите радиус окружности r='); заменить на writeln('радиус окружности r=2');