Ответы на вопрос:
Program test1;
Var c:integer;
Begin
Readln (c);
if c<0 then
c:=c+10
else
if c>0 then
c:=c-10
else
write('число равно 0');
write(c)
End.
Program test2;
Var a,b:integer;
Begin
Readln (a,b);
if a<b then
b:=b-a
else
if a>b then
a:=a-b;
write(a,' ',b)
End.
Program test3;
Var r:integer;
Begin
Readln (r);
if r>=180 then
write('высокий')
else
write('нормальный')
End.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
aikosha921.05.2023 04:51
-
ainura12a23.02.2022 10:28
-
alinapavlova09.04.2020 11:29
-
arakelyankrist16.05.2021 10:38
-
GoG35313.04.2023 21:04
-
sos13027.08.2022 09:23
-
darivorobey14.04.2020 11:21
-
nerminramazano05.06.2023 11:44
-
kazantsevaira230.12.2020 11:13
-
vaxyl05.02.2023 14:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.