Program kod; var q,w,e,r,t,y,u,i,x: integer; begin write(q,w,e,r,t,y,u,i); if q=1 then x+(1*2*2*2*2*2*2*2); if q=0 then x+0; if w=1 then x+(1*2*2*2*2*2*2); if w: =0 then x+0; if e=1 then x+(1*2*2*2*2*2); if e=0 then x+0; if r=1 then x+(1*2*2*2*2); if r=0 then x+0; if t=1 then x+(1*2*2*2); if t=0 then x+0; if y=1 then x+(1*2*2); if y=0 then x+0; if u=1 then x+(1*2); if u=0 then x+0; if i=1 then x+(1*1); if i=0 then x+0; writeln('код: 'x); пишет встречено + а ожидалось ;
211
376
Ответы на вопрос:
1)составьте программу, которая находит большее из двух введенных с клавиатуры чисел a, b и выводит его на экран. числа 7 и 9 var a,b : integer; begin write('enter a: '); read(a); write('enter b: '); read(b); if a> b then writeln(a) else writeln(b); end. 2) составьте программу, которая находит меньшее из трёх введенных чисел a, b, c и выводит его на экран. числа 10, 4 и 9 var a,b,c : integer; begin write('enter a: '); read(a); write('enter b: '); read(b); write('enter c: '); read(c); if (a< b) and (b< c) then writeln(a); if (b< c) and (c< a) then writeln(b) else writeln(c); end. 3) составьте программу определяющую, является ли введенное с клавиатуры целое число кратным 3. var a: integer; begin write('enter a: '); read(a); if (a mod 3) = 0 then writeln('кратно') else writeln('не кратно'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
амонра221.06.2021 23:36
-
moki224.09.2021 16:21
-
valeriaky070706.10.2022 16:36
-
vladbortnovsij6906.09.2021 01:16
-
girlmarta16.06.2022 03:52
-
fgrtyrrrrty31.03.2021 04:28
-
nikitoschenko23.12.2020 01:08
-
kulisenok29.03.2020 06:38
-
LANOVI11.04.2023 23:19
-
9яна200520.10.2020 15:34
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.