Сор ПО ИНФОРМАТИКЕ 7 КЛАСС УМАЛ

Могут:
– 31: для числа 111 сумма остатков равна 1+1+1=3, произведение цифр 1*1*1=1
– 813: для числа 339 произведение цифр 3*3*9=81, сумма остатков 1+1+1=3
– 7293: для числа 999 проивзедение цифр 9*9*9=729, сумма остатков 1+1+1=3

Остальные не могут. 
– 32: если сумма остатков 3, то все цифры нечетные, их произведение не может быть равно 2. Если сумма остатков 2, то одна из цифр четная, произведение не может быть равно 3.
– 43: Сумма остатков не превышает 3, значит, 3 – сумма остатков (поэтому все цифры нечетные), тогда произведение не будет четному числу 4.
– 52: сумма остатков 2, одна из цифр четная, но тогда произведение не будет равно нечетному числу 5
– 132: аналогично, сумма остатков 2, произведение должно быть четным (а оно 13)
– 190: аналогично, сумма остатков 0, тогда все цифры четные, но произведение 19

Program R1;
Var n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if n>0 then n:=n+1 else
n:=abs(n mod 2) ;  {примечание-остаток будет положительным)
writeln(n);
close(input);
close(output);
end.

 

2 задача

Program R1;
Var n,l:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if (n mod 10)>(n div 10) then writeln('2>1') else
if (n mod 10)<(n div 10) then writeln('2<1') else
if (n mod 10)=(n div 10) then writeln('2=1');
close(input);
close(output);
end.