Ответы
Ответ дал:
1
Ответ:
Var x:integer;
Begin
Writeln ('введите вес') ;
Readln (x)
If (x>25) and (x<85) then Writeln ('оптимальный вес')
Else Writeln ('не оптимальный вес') ;
End.
Объяснение:
Можно место значений 25 и 85 подставить другие.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад