Определите средний вес 2-х подруг. вес ввести с клавиатуры var sr, ves1, ves 2 : begin writeln ('введи вес 1 подруги'); readln ; writeln (''); readln (ves2); sr: = writeln ('средний вес двух подруг: '

Ямайкамафака Ямайкамафака    2   10.03.2019 15:17    0

Ответы
piv1490 piv1490  24.05.2020 20:14
realves1введи вес 2 подруги(ves1 + ves2) / 2;Sr
ПОКАЗАТЬ ОТВЕТЫ
KoshkaAnetty KoshkaAnetty  24.05.2020 20:14

Var

Sr, ves1, ves2 : real;

Begin

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

Readln (ves1);

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

Readln (ves2);

Sr:=(ves1+ves2)/2;

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика