1) var a:string; i, o: Integer; p: Real; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (sqr(o) = p*p*p) then writeln('true') else writeln('false'); end.
2) var a:string; i, o, p: Integer; begin readln(o); a := inttostr(o); for i := 1 to length(a) do p := p + strtoint(a[i]); if (p mod 3 = 0) then writeln('true') else writeln('false'); end.
3) var a, b, c: real; begin readln(a, b, c); if ((a = b) and (b = c)) then writeln('true') else writeln('false'); end.
Перечислим их:
1111 => 4+4+4+4 = 16
1112 => 4+4+4-3 = 9
1121 => 4+4-3+4 = 9
1122 => 4+4-3-3 = 2
1211 => 4-3+4+4 = 9
1212 => 4-3+4-3 = 2
1221 => 4-3-3+4 = 2
1222 => 4-3-3-3 = -5
2111 => -3+4+4+4 = 9
2112 => -3+4+4-3 = 2
2121 => -3+4-3+4 = 2
2122 => -3+4-3-3 = -5
2211 => -3-3+4+4 = 2
2212 => -3-3+4-3 = -5
2221 => -3-3-3+4 = -5
2222 => -3-3-3-3 = -12
Перечислим полученные результаты с разными числами(одинаковые выводить не будем)
16
9
2
-5
-12
ответ: Таких чисел будет 5(пять)