Дано дві трійки дійсних чисел. у кожній трійці всі - вопрос №8758261 от schestakov78 12.01.2023 14:23

Question

Информатика: Дано дві трійки дійсних чисел. у кожній трійці всі числа різні. знайдіть середнє арифметичне максимальних чисел кожної трійки. написать программу на паскале

schestakov78 · Answer

Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin    writeln( First );    a1:=5;    b1:=6;    c1:=1;    writeln(a1, - ,b1, - ,c1);    writeln( Second );    a2:=3;    b2:=2;    c2:=8;    writeln(a2, - ,b2, - ,c2);    if(b1 a1)and(b1 c1) then a1:=b1    else    if (c1 a1) then a1:=c1;    if(b2 a2)and(b2 c2) then a2:=b2    else    if (c2 a2) then a2:=c2;    s:=(a1+a2)/2;    writeln(s:0:2);end....