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

Вариант 2

Программа PascalABC

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

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

Question

Информатика

Маринуша

25 января, 17:17

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

Вариант 2

Программа PascalABC

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

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

+5

Ответы (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.