1)
Program hhh54;
var x:longint;
begin
read (x);
if ((x div 100) + ((x div 10) mod 10) + (x mod 10)) mod 2 <> 0 then write ('ЯВЛЯЕТСЯ')
else write ('НЕ ЯВЛЯЕТСЯ');
end.
2)
а)
Progran hhh54;
var i,k,x:longint;
begin
k:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then k:=k+1;
read (x);
end;
write (k);
<span>end.
</span>
б)
Progran hhh54;
var i,s,x:longint;
begin
s:=0;
read (x);
while x <> 0 do
begin
if (x mod 10 = 6) and (x mod 4 = 0); then s:=s+x;
read (x);
end;
write (s);
end.
A=17(8)=1111(2)
B=22(8)=10010(2)
C=34(10)=100010(2)
A+B+C=1111(2)+10010(2)+100010(2)=1000011(2)
1) Дизайн системы
2) Компании производящие устройства
3) Возможности систем
4) Драйвера (прошивки и т.п.)
5) ПО, которое возможно на него установить.
6) Компании, которые сотрудничают с ними
7) Названия компаний ;)
Также, Андроид - более гибкая система (с ней легче "шаманить")
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.