MagicSpace
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 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.
Answers & Comments
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
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.