DA
Diana Adamiya
Много натуральных четЕрехзначных существует.
Код Pascal1
Var
i,k: Longint;
BEGIN
For i:=1000 to 9999 do
If (i div 1000)+((i div 100) mod 10)=(i mod 10)+((i mod 100) div 10) Then
k:=k+1;
Writeln('Существует ',k ,' чисел');
END.