Паскаль выдает ошибку "ошибка времени выполнения, неверный формат переменной z" я понять не могу почему неверный формат var p: string; w,t,l: integer; u,z: real; begin read(t); if t< 0 then writeln('лед'); if (t> 0) and (t< 100) then writeln('жидкое состояние'); if t> 100 then writeln('пар'); if t=0 then writeln('точка плавления'); if t=100 then writeln('точка кипения'); writeln('уменьшить или увеличить температуру? '); readln(p); if p='уменьшить' then writeln('уменьшить на сколько? '); read(z); u: =t-z; writeln('температура уменьшена, ',u); if p='увеличить' then writeln('увеличить на сколько? '); readln; read(w); l: =t-w; writeln('температура увеличена, ',l); end. вот само : запросить у пользователя температуру вещества воды. вывести сообщение о том, в каком она состоянии: твёрдое состояние - лёд, жидкость - вода, "точка плавления" (0 0с при нормальном давлении (760 мм. рт. "точка кипения" (100 с при нормальном давлении (760 мм. рт. газообразное состояние - пар. запросить у пользователя действие: уменьшить или увеличить температуру. в зависимости от ответа вывести другой запрос: на сколько увеличить (уменьшить) температуру. выполнить изменение температуры.

250

263

Посмотреть ответы 1

Ответы на вопрос:

DOMINOSHKAWWWRU

Информатика

4,5(23 оценок)

Type v = array of integer; function prodpos(a: v): longint; var i: integer; begin result : = 1; foreach var p: longint in a do if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var i: integer; begin writeln(title, '(', length(a, 0), '). вводите элементы.'); for i : = 0 to length(a, 0) - 1 do read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin setlength(a, dim); initmas(a, title); end; const n1 = 10; n2 = 15; var a, b: v; begin getmas(a, n1, 'массив а'); getmas(b, n2, 'массив b'); writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.