Войти Регистрация Спроси ai-bota

Написать программу у pascal

Написать программу у pascal

Показать ответ

Ответ:

Эльвина567

09.02.2022 17:10

var

x,y:integer;

begin

read(x);

if x<=0 then

writeln('y=', x+20)

else

writeln('y=', x*20);

end.

0,0(0 оценок)

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

aselkulmagambet

22.05.2023 05:45

Работа в паскале составьте программу вычисления суммы всех трехзначных чисел кратных 4...

xXEliteXx

28.08.2022 02:46

С++написать программу с подробными комментариями , которая 1. обьявляет переменную cord типа int , значение которой вводит пользователь 2. делает проверку ввода : если вводится...

daniilgurnyy

06.04.2022 19:01

Как создать шуточный вирус ? (через блокнот или ещё через что ? )...

зарина298

21.02.2020 00:52

Статья, набранная на компьютере, содержит 16 страниц, на каждой странице – 30 строк, в каждой строке – 32 символа. определите информационный объём статьи в кодировке кои-8, в...

IG77

27.02.2023 22:16

Как надо : сколько единиц в двоичной записи шестнадцатеричного числа 10fa16?...

DashkaGamayunova

12.03.2021 21:01

Написать программу в паскале что вычисляет произведение первую десятку натуральных числел...

meowth1

05.02.2021 09:44

Саша скачивает игру с интернета объемом 25гб скорость канала сети 80 мб/с. через 5мин. ему нужно выходить из дома в секцию . определите успеет он скачать игру или нет. если нет,...

nastyasergeeva9

01.03.2021 00:34

Выберите допустимые имена файлов из перечисленных book*.doc book_.jpg book.exe book.jpg...

varavarlamova19

19.09.2020 11:02

Вкакой системе счисления верны равенства 2*2*2=10 4*4=20 6*6=20...

Nikita12409

28.08.2020 02:44

В ячейке С4 листа электронной таблицы записана формула =D5*$D$5+$B3*B$3.Формула копируется в 8 смежных с ячейкой С4 ячеек листа. Напишите, какие формулы будут находиться в этих...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку