Ответы на вопрос:
Pascal abc.net 3.3.5 var a: real; begin write('введите число: '); readln(a); if a > 0 then a : = a - 30 else a : = a + 70; writeln('новое число - ', a); end.
Популярно: Информатика
-
В небольшом городке живут пятеро друзей: Иванов, Петров, Сидоров, Гришин и Алексеев....
NomD12311.07.2020 10:59 -
2 Напиши программу на следующие задачи А) После увеличения цены альбома на 25%...
Ппмммммммм04.03.2021 05:53 -
1Что такое 3D-моделирование? 2Напиши 6 стандартные инструменты в окне SketchUp...
turanaliev24120227.04.2022 00:54 -
Что будет выведено на экран? а =5 b=6 print(a)...
Thanksor02.12.2021 06:04 -
При состaвлении формул в электронной тaблице у Серикa, нa месте некоторых формул,...
softinator24.11.2020 23:55 -
1) Створіть проміжні підсумки за стовпцем року з обчисленням середньої температури...
vikaMiwka12.12.2020 23:45 -
КТО ЗА ИНФОРМАТИКУ ШАРИТ...
ЮлияСалт22.06.2023 19:05 -
Составить алгоритм, считающий произведение всех целых чисел от 1 до i. МНЕ НУЖНА...
Матрос57311.09.2022 03:36 -
с Дан список целых чисел, в котором встречаются одинаковые значения. Напишите функцию...
Ksyufenka29.05.2020 21:21 -
Вам дан текстовый файл in.txt. Требуется удалить из него последнюю строку, и записать...
Cheburekcom12.01.2022 09:45