const N=1000;
var array[1..n] of integer;
i,k,p:integer;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
k:=0;
for i:=1 to p do
if (a[i] mod 4 =0) and (a[i] mod 7 <>0) then k:=k+1;
write(k);
end.
3. 2111070(8сс)=010001001001000111000=89230(16сс)
4. т.к в разных сс переведем в 10сс 32(8)=26(10)
214(5)=59(10) х=33(10)=21(16сс)
5.х=6(10)=6(16сс), одинаковые и в 10сс и в 16 сс
Program al;
var a,b,c:integer;
s,p:real;
begin
writeln('vvedite a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
p:=(a+b+c)/2;
s:=<span>sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readln;
end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
1) 35-25=10 (чел.) - не являются читателями школьной библиотеки
2) 35-20=15 (чел.) - не являются читателями районной библиотеки
3) (25+20)-35=10 (чел.) - читатели обеих библиотек
4) 20-10=10 (чел.) - читатели только районной библиотеки
5) 25-10=15 (чел.) - читатели только школьной библиотеки