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

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

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

Var

Sr, ves1, ves2 : real;

Begin

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

Readln (ves1);

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

Readln (ves2);

Sr:=(ves1+ves2)/2;

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

end.

Диана
Это точно верно? А разве заместо введите вес не нужно подставлять числа?
Карина Гавриляка
Аууу
Vitja Chimirov
Ответьте на вопрос пожалуйста
Egor Shishkalov
мне для вас отыскать подруг и выяснить их вес что ли? числа вводятся рандомно,то есть любые...
  1. real
  2. ves1
  3. введи вес 2 подруги
  4. (ves1 + ves2) / 2;
  5. Sr
Darina Houstova
Это точно верно? А числа мне самому выдумывать?
Чапковская Любовь
В коде есть вызов процедуры Readln, которая как раз-таки запрашивает ввод у юзера. Никаких чисел без помощи других писать в коде не надобно.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт