Программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит сумму цифр
209
398
Ответы на вопрос:
Var a: integer; begin readln(a); if (a mod 2 = 0) then begin a : = sqr(a); writeln('квадрат введённого числа равен: ', a); end else begin a : = ((a mod 100) div 10) + (a mod 10) + (a div 100); writeln('сумма цифр введённого числа равна: ', a); end; end.
Const var s: integer; procedure ploshad poverhnosti (s: integer); var h,l,sbok: integer; begin writeln (' vedite l i h'); readln (l,h); sbok: =h*(l^2); end; begin s: =(ploshad poverhnosti)+2*(l^2); writeln(s,' '); readln; end. но это не точно.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Zaika11111111119.11.2021 00:29
-
dzhusanastasia10.02.2021 11:58
-
Никита008819.07.2022 03:12
-
lychik111122.01.2021 18:38
-
ArtemD9826.11.2022 09:22
-
anastasiabojko528.05.2023 15:17
-
miroslav123417.06.2022 15:22
-
alekseymedvedev18.02.2020 08:27
-
21VR16.12.2020 11:07
-
dianaaloyts20.11.2020 18:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.