profile
Опубликовано 1 год назад по предмету Информатика от vala1998

Помогите, пожалуйста
Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаю
program dzkan;
var x,a,b,c:integer;
begin
writeln(Введите трехзначное число');
readln(x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;

  1. Ответ
    Ответ дан Ukoz1940
    var a,b,c,d:integer;
    Begin
    readln(a);
    b:=a mod 10;
    c:=a mod 100 div 10; 
    d:=a div 100;
    If (b=c) or (b=d) or (c=d) then
    writeln('YES')
    else
    writeln('No')
    End.