Question

Даны три целых числа а, b, с. Если среди чисел нет ни одного, кратного 3, то найти их сумму и среднее арифметическое в противном случае - их произведение и удвоенную сумму
Это надо на паскале
90 баллов

Answer 1

program Task3;

var a,b,c,sum,mult:integer;

begin

 writeln('Введите три целых числа');

 readln(a,b,c);

 sum:=a+b+c;

 mult:=a*b*c;

 if (a mod 3<>0) and (b mod 3<>0) and (c mod 3<>0) then writeln('Сумма = ',sum,' Среднее арифметическое = ',sum/3:2:2) else writeln('Произведение = ',mult,' Удвоенная сумма = ',2*sum);

end.