Pasckal ! ) даны два трехзначных числа. вывести максимальные цифры в этих числах. 2) дана последовательность чисел 1,2,3,4,5,. найти все числа, которые делятся на 4,8,2
251
455
Ответы на вопрос:
Var a,b,m1,m2: integer; begin write('a = '); read(a); write('b = '); read(b); a: =abs(a); b: =abs(b); m1: =a mod 10; a: =a div 10; if a mod 10 > m1 then m1: =a mod 10; a: = a div 10; if a mod 10 > m1 then m1: =a mod 10; m2: =b mod 10; b: =b div 10; if b mod 10 > m2 then m2: =b mod 10; a: = b div 10; if b mod 10 > m2 then m2: =b mod 10; writeln('максимальная цифра в a = ',m1); writeln('максимальная цифра в b = ',m2); end. var i: integer; begin write('кратные 4: '); for i: = 1 to 1000 do if i mod 4 = 0 then write(i,' '); writeln; write('кратные 8: '); for i: = 1 to 1000 do if i mod 8 = 0 then write(i,' '); writeln; write('кратные 2: '); for i: = 1 to 1000 do if i mod 2 = 0 then write(i,' '); writeln; write('кратные 4,8,2: '); for i: = 1 to 1000 do if i mod 8 = 0 then write(i,' '); writeln; end.
Uses crt; var len, h : real; day : integer; begin len : = 13; h : = 1; clrscr; while len > 0 do begin len : = len - h; h : = h - h * 0.05; day : = day + 1; end; write(day); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Zepstro09.11.2020 18:45
-
Gibiskus211.01.2020 17:07
-
Вадим22040428.06.2021 22:25
-
MARZHIVANKINA14.07.2020 16:12
-
egorikguru26.05.2022 05:26
-
PeppaPig222212.08.2020 22:45
-
v1k207.11.2021 07:31
-
mo14yn12.04.2022 02:49
-
igorlevocko04.01.2020 20:00
-
otvet1231343419.08.2020 20:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.