Дана температура. Определить агрегатное состояние воды. составьте пожалуйста программу, она решается через оператор: case.
Дана температура. Определить агрегатное состояние воды. составьте пожалуйста программу, она решается через оператор: case.
Гость
Ответ(ы) на вопрос:
Гостьvar
x:integer;
begin
writeln('Введите температуру воды:');
readln(x);
case x of
-193..0:writeln('Агрегатное состояние: твердое');
1..99: writeln('Агрегатное состояние: жидкое');
else writeln('Агрегатное состояние: газообразное');
end;
end.
Не нашли ответ?
Похожие вопросы