ПОМОГИТЕ ПОЖАЛУЙСТА Безотлагательно, ДАМ Наибольший БАЛЛ НАПИШИТЕ Правильно,3. Запустите интегрированную

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

Задать свой вопрос
1 ответ

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');
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт