Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 Y1 ≤ Y2 Z1 ≤ Z2
Var
X1,X2,Y1,Y2,Z1,Z2,G:byte;
Begin
Write('X1 = ');ReadLn(X1);
Write('X2 = ');ReadLn(X2);
Write('Y1 = ');ReadLn(Y1);
Write('Y2 = ');ReadLn(Y2);
Write('Z1 = ');ReadLn(Z1);
Write('Z2 = ');ReadLn(Z2);
Write('G = ');ReadLn(G);
if (X1=G)and(G=X2) then WriteLn('Полутяжёлый вес')
else if (Y1=G)and(G=Y2) then WriteLn('Тяжёлый вес')
else if (Z1=G)and(G=Z2) then WriteLn('Супертяжёлый вес')
else WriteLn('Не попадает в данные весовые категории')
End.
Пример работы программы:
X1 = 85
X2 = 94
Y1 = 95
Y2 = 104
Z1 = 105
Z2 = 200
G = 115
Супертяжёлый вес