170 = 10101010
242 = 11110010
158 = 10011110
70 = 01000110
-50 = 11001110
-90 = 10100110<span>
</span>
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
Ответ:
Кодировку utf-8 поставил?
Объяснение:
Ввод: x ^ y С/П.
П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П
ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П
ИП0 x<0 27 3 С/П 4 С/П
С учётом моментов, когда точки лежат на осях.