ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО, ДАМ МАКСИМАЛЬНЫЙ БАЛЛ НАПИШИТЕ ВЕРНО,3. Запустите ин...

July 2022 1 7 Report

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

Answers & Comments

ingr

var

r : real;

d : real;

begin

write('введите радиус окружности r=');

readln(r);

d := 2*r;

writeln('диаметр равен d=2r=', d);

end.

1 votes Thanks 4

baltabayalibi А это точно верно? И как писать

ingr ну диаметр равен двум радиусам так что программа считает верно для любого введенного радиуса. Хотя в твоем случае можно было сделать проще так как радиус известен заранее и равен 2. и вместо ввода радиуса с клавиатуры можно просто в программе написать r:=2;

baltabayalibi значит вместо readln(r) r:=2

ingr да, и write('введите радиус окружности r='); заменить на writeln('радиус окружности r=2');

Answers & Comments

reshite uravnenie ix3i49

reshite uravneniya iyi 21 i5yi 46 4i3yi7

3tolko pozhalujsta s resheniem

raskrojte skobki x y2 9 abc m8n k

pamyatniki zheleznogo veka v kazahstane

slozhite pochlenno neravenstva 13gt1 i 5gt 2 2 42gt3 i 5gt 1 3 18

pomogite sor1 opredelite etapy resheniya zadachi ukazhite etapy resheniya zadachi v

skazka o seme15 predlozhenij

skazka o seme15 predlozhenij pozhalujsta pobystree

izobrazite na koordinatnoj pryamoj chislovye promezhutki 9beskonechnost 5b638f940d3f64ac64e60f5c15848c9a3 41542

рекомендуемые вопросы

Helpful Links

Helpful Social