Вам дается одна точка, которую необходимо повернуть относительно начала координат на 90 градусов.
Входные данные
Три целых числа – координаты исходной точки, а также число t, которое равно 1, если требуется повернуть точку по часовой стрелке, и 0 в противном случае.
Выходные данные
Два целых числа – координаты искомой точки.

Пример

Вход Выход
4 4 1 4 -4

100 100 0 -100 100

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var c := ReadlnString;

 if c.Any(t -> not (t in ['0'..'9'])) then

 begin

   Print('Ошибка ввода');

   exit

 end;

 var a := c.Select(t -> t.ToDigit).ToArray;

 Writeln('a) ', c.Where(t -> t = '9').Count);

 Writeln('б) ', a.Where(t -> t = a[0]).Count);

 Writeln('в) ', a.Where(t -> t.IsOdd).Count);

 Writeln('г) ', a.Where(t -> t < 3).Sum);

 Writeln('д) ', a.Where(t -> t.IsEven and (t > 4))

     .Aggregate(1, (p, q)-> p * q));

 Writeln('е) ', a.Where(t -> (t = 2) or (t = 3)).Count);

end.

Пример1764963253120a) 1б) 2в) 7г) 6д) 36е) 4Примечание: количество цифр в числе практически не ограничено, контроль на ввод "не-цифр" имеется.

Var c,i:integer;

function IntToBin2(Value: integer): string;
var  i: integer;
begin
Result:= '';
for i:= 0 to Trunc(Ln(Value)/Ln(2)) do
Result:= IntToStr((Value and (1 shl i) shr i))+Result;
end; 

begin;
for c:=41 to 69 do
writeln(c,'=',IntToBin2(c));
end.

Вывод:
41=101001
42=101010
43=101011
44=101100
45=101101
46=101110
47=101111
48=110000
49=110001
50=110010
51=110011
52=110100
53=110101
54=110110
55=110111
56=111000
57=111001
58=111010
59=111011
60=111100
61=111101
62=111110
63=111111
64=1000000
65=1000001
66=1000010
67=1000011
68=1000100
69=1000101