Количество подписчиков к концу шестой недели:
1+2+4+8+16+32 = 63
var
a, b: <em>integer</em>;
begin
assign(input, 'input.txt');
assign(output, 'input.txt');
reset(input);
rewrite(output);
readln(input, a, b);
if (a mod 2 = 1) then
writeln(output, b mod 2)
else
writeln(output, '0');
close(input);
close(output);
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159