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

Answer 2

Var

Sr, ves1, ves2 : real;

Begin

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

Readln (ves1);

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

Readln (ves2);

Sr:=(ves1+ves2)/2;

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

end.