Помогите, пожалуйста Дано трехзначное число

Question

Помогите, пожалуйста Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот, что дальше не знаю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;

Answer 1

56

reveng

21 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: