Даны 3 числа определить,что больше сумма или произведение этих чиселПАСКАЛЬ
Даны 3 числа определить,что больше сумма или произведение этих чисел
ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var a,b,c,sum,pr:integer;
beginreadln(a,b,c);
sum:=a+b+c;
pr:=a*b*c;
if sum>pr then writeln ('сумма больше произведения')
else writeln('произведение больше суммы');
end.
Гостьuses crt;
var a, b, c, s, f:integer;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
s:=a+b+c; f:=a*b*c;
if s>f then write('Сумма больше.') else write('Произведение больше.');
end.
Не нашли ответ?
Похожие вопросы