Написать на языке паскаль: даны действительные числа a, b, c, d. если ab> c> d, то каждое число заменить средним арифметическим всех значений. в противном случае все числа заменяются своими квадратами

148

451

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

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

mihasemi

Информатика

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

Var a, b, c, d, sr: real; begin read(a, b, c, d); sr : = (a + b + c + d) / 4; if (a < b) and (b < c) and (c < d) then begin a : = d; b : = d; c : = d; end else if (a > b) and (b > c) and (c > d) then begin a : = sr; b : = sr; c : = sr; d : = sr; end else begin a : = a * a; b : = b * b; c : = c * c; d : = d * d; end; write(a, ' ', b, ' ', c, ' ', d); end.

YungTrappa1

Информатика

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

Var a,b,c,d,sr: real; begin read(a,b,c,d); sr: =(a+b+c+d)/4; if (a< b) and (b< c) and (c< d) then begin a: =d; b: =d; c: =d; end else if (a> b) and (b> c) and (c> d) then begin a: =sr; b: =a; c: =a; d: =a; end else begin a*=a; b*=b; c*=c; d*=d; end; write(a,' ',b,' ',c,' ',d); end.

лола268

Информатика

4,7(14 оценок)

Var n, lastnum, mod5: integer; flag: boolean; begin readln(n); lastnum : = n mod 10; mod5 : = n mod 5; flag : = (lastnum = 5) or (lastnum = 0); if flag then writeln('число ', n, ' делится на 5 по признаку делимости') else writeln('число ', n, ' не делится на 5 по признаку делимости'); if (mod5 = 0) then writeln('число ', n, ' делится на 5 по определению') else writeln('число ', n, ' не делится на 5 по определению'); flag : = flag xor (mod5 = 0); if flag then writeln('результаты не , это не признак делимости! ') else writeln('результаты , это возможно признак делимости') end.

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

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

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

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

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

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

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

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

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

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