Задание:
Помогите, пожалуйста Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот, что дальше не знаюprogram dzkan; var x,a,b,c: integer; beginwriteln (Введите трехзначное число'); readln (x); a: =x div 100; b: =x mod 100 div 10; c: =x mod 10;
Решение:
Var a,b,c,d: integer; Beginreadln (a); b: =a mod 10; c: =a mod 100 div 10; d: =a div 100; If (b=c) or (b=d) or (c=d) thenwriteln ('YES') elsewriteln ('No') End.
Знаете другой ответ?