Написание разветвляющихся программ на языке pascal. №1: если а> b и b> c тогда а = max+3. №2: вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

105

467

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

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

aguanapfel

Информатика

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

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! ** 1 ** begin var (a,b,c): =readreal3('введите a, b и c: '); if (a> b) and (b> c) then a+=3; print(a,b,c); end. ** 2 ** begin var (a,b,c): =readreal3('введите a, b и c: '); writeln((max(max(a,b),c)+min(min(a,b),c))/2) end. пример введите a, b и c: 18 -6 11.5 6

tomikyrmash

Информатика

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

1) var a,b,c,max: integer; begin writeln('введите a,b,c,max'); readln(a,b,c,max); if (a> b) and (a> c) then a: =max+3; writeln(a); end. 2) var a,b,c,max,min: integer; begin writeln('введите 1,2,3 число'); readln(a,b,c); max: =a; if max< b then max: =b; if max< c then max: =c; min: =a; if min> b then min: =b; if min> c then min: =c; writeln('среднее: ',(max+min)/2); end.