Нужно в поограмме pascal abc решить if5, if6, if7. до завтра нужно на контрольную, я совсем не понимаю, как это решать. ,
100
341
Ответы на вопрос:
If5
program raf105;
var a,b,c,po,ot: integer;
begin
write('введите 3 числа: ');
readln(a,b,c);
if a > 0
then po+= 1;
if a < 0
then ot+= 1;
if b > 0
then po+= 1;
if b < 0
then ot+= 1;
if c > 0
then po+= 1;
if c < 0
then ot+= 1;
writeln('количество положительных чисел: ',po);
writeln('количество отрицательных чисел: ',ot);
end.
if6program raf105;
var a,b: real;
begin
write('введите 2 числа: ');
readln(a,b);
if a > b
then writeln(a)
else writeln(b);
end.
if7program raf105;
var a,b: real;
begin
write('введите 2 числа: ');
readln(a,b);
if a < b
then writeln('1')
else writeln('2');
end.
язык pascalabc 3.4.2Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Макс77733328.05.2020 19:02
-
Bronin200220.08.2021 06:24
-
СиэльФантом10.05.2020 09:24
-
kirillarhipenc127.01.2022 14:07
-
anhelinaivancha22.04.2022 18:50
-
ivan58888siko15.11.2021 21:29
-
privetikivsem10.11.2022 01:26
-
тата27914.04.2022 16:53
-
Виктория22222211106.07.2022 13:17
-
dgumaeva1718.01.2022 18:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.