Uses crt;
var pr,sum,e,d,s,t,a:integer;
begin
readln(a);
e:=a mod 10;
d:=(a div 10) mod 10;
s:=(a div 100) mod 10;
t:=a div 1000;
pr:=1;
sum:=0;
if e mod 2 =0 then sum:=sum+e else pr:=pr*e;
if d mod 2 =0 then sum:=sum+d else pr:=pr*d;
if s mod 2 =0 then sum:=sum+s else pr:=pr*s;
if t mod 2 =0 then sum:=sum+t else pr:=pr*t;
writeln(sum);
writeln(pr);
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(7,3,t->3*t); a.Println
end.
<u>Результат</u>
3 9 27 81 243 729 2187
Мы- юные солдаты просто класс! Защитим Россию от зараз)))
Если игра запускается с диска, то память используется только для сохранений
Если ты скачаешь игру(не с диска), то память будет тратится на сохранения и саму игру