Запросить у пользователя температуру вещества воды. Вывести сообщение о том, в каком она состоянии: - id1720613520210612 от Зоромдед 12.06.2021 08:48

Question

Информатика: Запросить у пользователя температуру вещества воды. Вывести сообщение о том, в каком она состоянии: твёрдое состояние - лёд, жидкость - вода, точка плавления (0 0С при нормальном давлении (760 мм. рт. ст.)), точка кипения (100 0С при нормальном давлении (760 мм. рт. ст.)), газообразное состояние - пар (выше 100) Запросить у пользователя действие: уменьшить или увеличить температуру. В зависимости от ответа вывести другой запрос: на сколько увеличить (уменьшить) температуру. Выполнить изменение температуры.

Зоромдед · Accepted Answer

[any] Pascal: (без хранения введённых чисел => "эффективная")

var a, i, x: integer; begin for i := 1 to 6 do begin read(a); if a>0 then x := x + 1 else if a<0 then x := x - 1 end; if x>0 then write('Больше положительных') else if x<0 then write('Больше отрицательных') else write('Одинаково')end.

PascalABC.NET: (с хранением введённых чисел в массиве)

## var a := ReadArrInteger(6); var x := a.Sum(x -> x>0 ? 1 : -1); if x=0 then Write('Одинаково') else Print('Больше', x>0 ? 'положительных' : 'отрицательных')

Пример работы:

Паскаль. 8 класс. даны 6 чисел. каких чисел больше - положительных или отрицательных? !

MOGZ ответил