напишите программу на языке Паскаль.
Условие:
Напишите программу,которая вводит трехзначное целое число и выводит ответ"Да",если среди его цифр есть хотя бы две одинаковые

Question

Информатика: напишите программу на языке Паскаль. Условие: Напишите программу,которая вводит трехзначное целое число и выводит ответ Да ,если среди его цифр есть хотя бы две одинаковые

ayupovailinaozhaxj · Accepted Answer

Class ArrayEven{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
} eArrayCell:
for(int cCell = 0; cCell<eArray.length-1; cCell++){
   if(eArray[cCell]%2==1)continue;
   else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
   if(eArray[eCell]%2==1){
    eArray[eArray.length-1]=eArray[cCell];
    eArray[cCell]=eArray[eCell];
    eArray[eCell]=eArray[eArray.length-1];
    continue eArrayCell;
   }
   break;
}
for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
}
}

MOGZ ответил