Написать программу нахождения наибольшего значения их пяти переменных

240

398

Посмотреть ответы 3

Ответы на вопрос:

настясердечкотв2

Информатика

4,4(58 оценок)

Var a,b,c,d,e,max: integer; begin writeln('a, b, c, d, e: '); readln(a,b,c,d,e); if a> b then max: =a else max: =b; if c> max then max: =c; if d> max then max: =d; if e> max then max: =e; writeln('max = ',max); end. пример: a, b, c, d, e: 8 5 2 9 4max = 9

trjg456isa

Информатика

4,5(94 оценок)

Var a,b,c,d,e,max: integer; begin readln(a,b,c,d,e); if (a> b) and (a> c) and (a> d) and (a> e) then max: =a; if (b> a) and (b> c) and (b> d) and (b> e) then max: =b; if (c> a) and (c> b) and (c> d) and (c> e) then max: =c; if (d> a) and (d> b) and (d> c) and (d> e) then max: =d; if (e> a) and (e> b) and (e> c) and (e> d) then max: =e; writeln(max); end.

eryana

Информатика

4,4(99 оценок)

Сначала код без комментариев: var s: longint; i: integer; a: byte; begin s: =0; repeat read(a); if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; until a = 0; writeln('s = ',s); end. теперь объяснение каждой строки: var s: longint; i: integer; a: byte; // в эту переменную будет вводится число с клавиатуры. тип byte может принимать значения от 0 до 255. поэтому его как раз хватит. begin s: =0; // тут будет храниться сумма, поэтому переменную следует сперва обнулить. repeat // далее начинается цикл read(a); // эта команда каждый раз считывает с клавы число, и записывает его в переменную a. if (a mod 2 < > 0)and(a mod 7 = 0) then s: =s+a; //тут проверяется 2 условия, и если они выполняются - к переменной s прибавляется значение переменной а 1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (a mod 2 < > 0) 2 условие: число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (a mod 7 = 0) until a = 0; // цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (a = 0) writeln('s = ',s); // тут выводится искомая сумма end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.