Помогите нужно использовать программу PascalABC

Вариант 2

Программа PascalABC

Кровяное давление у старшеклассников считается нормальным, если верхняя его граница H ≤ 100, а нижняя h ≥ 60 и H-h ≥ 30.

Составьте программу, которая в зависимости от введенных значений H и h, выдает одно из следующих значений: "нормальное", "повышенное", "пониженное", "не норма".

Question

Информатика

Марат

6 ноября, 14:55

Помогите нужно использовать программу PascalABC

Вариант 2

Программа PascalABC

Кровяное давление у старшеклассников считается нормальным, если верхняя его граница H ≤ 100, а нижняя h ≥ 60 и H-h ≥ 30.

Составьте программу, которая в зависимости от введенных значений H и h, выдает одно из следующих значений: "нормальное", "повышенное", "пониженное", "не норма".

+2

Ответы (1)

Знаете ответ на вопрос?

Хрисанф · Answer 1

Var

hn, hv:integer;

begin

writeln ('Введите верхнее и нижнее давление') ;

readln (hv, hn) ;

if (hv=60) and (hv-hn>=30) then

writeln ('норма') ;

if (hv>100) then

writeln ('повышенно') ;

if hn<60 then

writeln ('низкое') ;

if hv-hn<30 then

writeln ('не норма') ;

end.