Дана программа на языке Паскаль:
Дано целое число. Если оно является положительным, то прибавить к нему 4; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 34. Вывести полученное число.
program Familia;
var
a: integer;
begin
writeln('Введи число
svitaliy360
3
17.05.2020 15:50
0
Другие вопросы по теме Информатика
чсссвввввавшвневаа
13.09.2019 08:30
evasuperpuper123
13.09.2019 08:30
аружан225
20.05.2021 12:07
Ник1233211
20.05.2021 12:07
mrtopgame
20.05.2021 12:09
nermakov
20.05.2021 12:12
Food7983427
20.05.2021 12:13
olqa252ru
20.05.2021 12:13
Vladosik0987
20.05.2021 12:15
misterstepash
20.05.2021 12:20
Популярные вопросы
- Найдите степень многочленов а)3х5у-5х4у-6ху³ в)-а³b+a4b³-a6+b7-13...
3 - Плотность 1000кг/м3 давление 22000па найти высоту...
2 - Напишите сочинение на тему мой любимый предмет- язык...
3 - Сочинение на тему общественно развитие индии в конце xix века начале...
2 - Надо 20 составить план 1. развитие укроинськои хати 2. особенности...
2 - Площини альфа і бета перпендикулярні. пряма а - лінія їх перетину....
3 - Найдите предлоги и укажите их значение по выходным дням таня обедала...
2 - Списати слова змінюючи їх форму або спільнокореневе слово так, щоб...
2 - Подскажите какой тип почвы в атырау...
2 - Вопросы по произведению парадокс в.г.короленко во что превратилось...
3
program Familia;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then
a := a + 4;
if a< 0 then
a := a - 6;
if a=0 then
a := 34;
writeln(a);
end.