Var
x:integer;
begin
writeln('Введите температуру воды:');
readln(x);
case x of
-193..0:writeln('Агрегатное состояние: твердое');
1..99: writeln('Агрегатное состояние: жидкое');
else writeln('Агрегатное состояние: газообразное');
end;
end.
Потому что компьютер универсальный (т.е. может использоваться в самых различных областях) и он управляется программным обеспечением
Сначала найди за 1 час сколька раз будеть бери полученое число в какой нибуд букву например k потом 2018 секунд переведи в час и час умнож на k.Ну я так думаю.
они не писали гласные звуки и не пользовались дополнительными знаками, как египтяне
Программа и пример её работы - в прилагаемом файле.