Написание разветвляющихся программ на языке Pascal.

Задание №1:Если а>b и b>c тогда а = max+3.

Задание №2:Вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

Question

Информатика

Дьордия

3 декабря, 11:50

Написание разветвляющихся программ на языке Pascal.

Задание №1:Если а>b и b>c тогда а = max+3.

Задание №2:Вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Иешуй · Answer 1

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
if max
min:=a;

if min>b then min:=b;

if min>c then min:=c;

writeln ('Среднее: ', (max+min) / 2) ;

End.