Question

Дана температура. Определить агрегатное состояние воды. составьте пожалуйста программу, она решается через оператор: case.

Answer 1

var
x:integer;
begin
writeln('Введите температуру воды:');
readln(x);
case x of
-193..0:writeln('Агрегатное состояние: твердое');
1..99: writeln('Агрегатное состояние: жидкое');
else writeln('Агрегатное состояние: газообразное');
end;
end.