Предмет: Информатика,
автор: Аноним
даны 3 числа определить,что больше сумма или произведение этих чисел
ПАСКАЛЬ
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: marialongortova03
Предмет: Русский язык,
автор: naziramullaxojayeva
Предмет: Математика,
автор: ramazaanzholekeen
Предмет: Химия,
автор: Marina9135