Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даны 3 числа.Если выполняется неравенство A,B,C, то напечатайте значение суммы, а иначе произведение чисел.

Ответ оставил Гость

//PascalABC.NET 3.0
var a,b,c : integer;
begin 
write(Введите первое число: ); 
readln(a); 
write(Введите второе число: ); 
readln(b); 
write(Введите третье число: ); 
readln(c); 
if (a <> b) and (a <> c) and (b <> c) then   
writeln(Выполняется неравенство A,B,C. Ответ: ,a+b+c) 
else    writeln(Ответ: ,a*b*c);
end.