Задание:
Составить блок схему и написать программу на турбо Паскале. Вычеслить s=1/2[max (a,b,c)+min (a,b,c) ] 1) a=8; b=3; c=-2; 2) a=1; b=4; c=16;
Решение:
1) var s,a,b,c: real; begina: =8; b: =3; c: =-2; s: =1/2[max (a,b,c)+min (a,b,c) ]; end.2) var s,a,b,c: real; begina: =1; b: =4; c: =16; s: =1/2[max (a,b,c)+min (a,b,c) ]; end.
Знаете другой ответ?