Андреев из Екатеринбурга
<span>Борисов из Перми </span>
<span>Васильев из Омска </span>
<span>Григорьев из Челябинск </span>
<span>Данилов из Новосибирска</span>
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.
Program nurlan,
war m,sh,s:integer,
begin
nead(m,sh),
s:z m+3+sh*3;
wrl+er(s=s);end
<span>количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов, т.е. 2 ^ 5 = 32.
</span>
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.