Сравнить сумму чисел из диапазона от - 5 до +5 и произведение цифр целого трёхзначного...

Question

Сравнить сумму чисел из диапазона от - 5 до +5 и произведение цифр целого трёхзначного числа

Answer 1

Program z1;
var s,i,x,p:integer;
begin 
s:=0;
for i:=-5 to 5 do
s:=s+i;
writeln('введите целое трехзначное число');
readln(x);
p:=(x div 100)*(x div 10 mod 10)*(x mod 10);
if s>p then
writeln('сумма чисел из диапазона [-5; 5] БОЛЬШЕ  произведения цифр числа ',x)
else if s=p then
writeln('сумма чисел из диапазона [-5; 5] РАВНА  произведению цифр числа ',x)
else 
writeln('сумма чисел из диапазона [-5; 5] МЕНЬШЕ  произведения цифр числа ',x);
end.