Съобщи за грешка !
Упражнения://Редене на код
За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.Условие на задачата:
Напишете програма, която въвежда цяло четирицифрено число и определя дали съдържа поне една двойка еднакви цифри.
- if (a=b) or (a=c) or (a=d) or
- begin
- begin
- a := N mod 10;
- end;
- end.
- a, b, c, d : byte;
- d := N div 1000;
- write('Enter N=');
- else write('NO')
- else
- readln(N);
- c := N mod 1000 div 100;
- (b=c) or (b=d) or (c=d) then write('YES')
- b := N mod 100 div 10;
- if (N<1000) or (N>9999) then write('Error')
- var N : longint;
