Напишите программу на языке Паскаль, которая при вводе положительного числа утраивает его значение, при вводе отрицательного числа увеличивает его на 10 единиц, при вводе 0 уменьшает его на 2 единицы.

190

473

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

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

Xamelion11

Информатика

4,7(15 оценок)

pascal

Объяснение:

program prog1;

var

a: real;

begin

Write('Введите число ');

ReadLn(a);

if a > 0 then a := a *3

else if a < 0 then a := a + 10

else a := a - 2;

Write('a = ', a);

end.

13semiy

Информатика

4,8(50 оценок)

Y: =0; i: =2; while i < = 5 do begin y: =y+0.5; inc(i); end; write(y,i); будет вызвано 4 итерации цикла (для i = 2, 3, 4, 5). каждую итерацию у увеличивается на 0.5. итого, увеличится на 0.5*4 = 2 изначально у=0 => у будет равен 2. на последней итерации цикла i=5, происходит инкремент. i=6. ответ: 2 6

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

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

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

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

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

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

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

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

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

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