var a,b,i,k:integer; begin k:=0; for i:= 1000 to 9999 do begin a:= i div 100; b:= i mod 100; if ((a div 10)+(a mod 10))=((b div 10)+(b mod 10)) then k:=k+1; end; writeln('Счастливых чисел: ',k); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
