Автор - ilin1999 11 лет назад

Помогите нужно использовать программу PascalABC
Вариант 2
Программа PascalABC
Кровяное давление у старшеклассников считается нормальным, если верхняя его граница H ≤ 100, а нижняя h ≥ 60 и H-h ≥ 30.
Составьте программу, которая в зависимости от введенных значений H и h, выдает одно из следующих значений: "нормальное", "повышенное", "пониженное", "не норма".

Ответ

Автор - mnv1962

var
hn,hv:integer;
begin
writeln('Введите верхнее и нижнее давление');
readln(hv,hn);
if (hv<=100)and(hn>=60)and(hv-hn>=30)then
writeln('норма');
if (hv>100)then
writeln('повышенно');
if hn<60 then
writeln('низкое');
if hv-hn<30 then
writeln('не норма');
end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.