Напиши целое число в виде суммы разрядных слагаемых — единиц, десятков, сотен, тысяч и так далее. 26475=
⋅10000+
⋅1000+
⋅100+
⋅10+
⋅1

3651=
⋅10000+
⋅1000+
⋅100+
⋅10+
⋅1

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.