Информатика: Паскаль найти из четырёх чисел наибольшее

15.08.2020 11:04

Есть ответ 👍

Паскаль найти из четырёх чисел наибольшее

146

154

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

var a,b,c,d,max : real;

begin

write('первое число: '); read(a);

write('второе число: '); read(b);

write('третье число: '); read(c);

write('четвертое число: '); read(d);

if (a> b) and (a> c) and (a> d) then

max: =a;

if (b> a) and (b> c) and (b> d) then

max: =b;

if (c> a) and (c> b) and (c> d) then

max: =c;

if (d> b) and (d> c) and (d> a) then

max: =d;

writeln('наибольшее число: ',max);

end.

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

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

var a : = arrrandom(18, 2, 9);

a.println;

writeformat('s = {0: ###}', a.where(t -> t > 0).sum)

end.

5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4 s = 110

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

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

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

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

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