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.
111111011110110 в 2-ой
57366 в 8-ой
5ef6 в 16-ой
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
=ЕСЛИ(B1<-1;-2*B1+3+SIN(B1);ЕСЛИ(B1<0;ABS(B1);B1*LN(x+1)))