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

Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые

  1. Ответ
    Ответ дан Issenpilon
    var s: string;
    begin
    read(s);
    if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then
    writeln('Есть одинаковые цифры')
    else
    writeln ('Одинаковых цифр нет'); 
    end.