2 Задание
100010
1001011
3 Задание переведем в одну систему счисления и сравним, например в десятичную.
121 и 85
1111001 (2) больше 125 (8)
Var
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.