55) var
a, sum, pr, n, k: longint;
s, first, last: byte;
begin
readln(a);
sum := 0;
k := 0;
pr := 1;
n := a;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
sum := sum + s;
pr := pr * s;
inc(k);
if (n < 10) then
first := n;
end;
if (sum > 10) then
writeln('a) YES')
else
writeln('a) NO');
if (pr < 50) then
writeln('б) YES')
else
writeln('б) NO');
if (k mod 2 = 0) then
writeln('c) YES')
else
writeln('NO');
if (k = 4) then
writeln('г) YES')
else
writeln('г) NO');
if (first <= 6) then<br>writeln('д) YES')
else
writeln('д) NO');
last := n mod 10;
if (first = last) then
writeln('е) YES')
else
writeln('e) NO');
if (first > last) then
writeln('ж) Первая цифра больше последней');
if (first < last) then
writeln('ж) Последняя цифра больше первой');
if (first = last) then
writeln('ж) Первая цифра равна последней');
end.
58) var
a, n: longint;
v1, v2, v3: boolean;
s: byte;
begin
readln(a);
n := a;
v1 := false;
v2 := false;
v3 := false;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
if (s = 3) then
v1 := true;
if (s = 2) then
v2 := true;
if (s = 5) then
v3 := true;
end;
if v1 then
writeln('В этом числе есть цифра 3')
else
writeln('В этом числе нет цифры 3');
if v2 then
writeln('В этом числе есть цифра 2')
else
writeln('В этом числе нет цифры 2');
if v3 then
writeln('В этом числе есть цифра 5')
else
writeln('В этом числе нет цифры 5');
end.