Информатика 9 класс

2) Даны 4 числа, если сумма первых двух больше или равна сумме вторых двух, то найти сумму и произведение этих чисел, иначе найти среднее арифметическое и увеличить каждое число на 3.

Var a, b, c, d:real;

begin

write ('a, b, c, d: ') ;

readln (a, b, c, d) ;

if a+b>=c+d

then writeln ('Сумма = ', a+b+c+d,' Произведение = ', a*b*c*d)

else begin

writeln ('Среднее арифметическое = ', (a+b+c+d) / 4) ;

a:=a+3; b:=b+3; c:=c+3; d:=d+3;

writeln ('a = ', a,' b = ', b,' c = ', c,' d = ', d) ;

end;

end.

Пример:

a, b, c, d: 5 2 7 3

Среднее арифметическое = 4.25

a = 8 b = 5 c = 10 d = 6