Определите средний вес 2-х подруг. Вес ввести с клавиатуры Var Sr, ves1, ves 2 :___ Begin...

Question

Определите средний вес 2-х подруг. Вес ввести с клавиатуры Var Sr, ves1, ves 2 :___ Begin Writeln ('введи вес 1 подруги'); Readln (_____); Writeln ('_____'); Readln (ves2); Sr:=________ Writeln ('средний вес двух подруг: '____)

Answer 1

1. real
2. ves1
3. введи вес 2 подруги
4. (ves1 + ves2) / 2;
5. Sr

Comments

Это точно правильно? А цифры мне самому придумывать?

---

В коде есть вызов процедуры Readln, которая как раз-таки запрашивает ввод у пользователя. Никаких чисел самостоятельно писать в коде не надо.

Answer 2

Var

Sr, ves1, ves2 : real;

Begin

Writeln ('Введите вес 1 подруги');

Readln (ves1);

Writeln ('Введите вес 2 подруги');

Readln (ves2);

Sr:=(ves1+ves2)/2;

Writeln ('средний вес двух подруг: ',sr);

end.

Comments

Это точно правильно? А разве вместо введите вес не нужно подставлять цифры?

---

Аууу

---

Ответьте на вопрос пожалуйста

---

мне вам найти подруг и узнать их вес что ли? числа вводятся рандомно,то есть любые...