Артефакты

Дано трехначное число Напишите программу,которая определяет: а)есть ли среди цифр заданного целого трехзначного числа одинковые:

Дано трехначное число Напишите программу,которая определяет: а)есть ли среди цифр заданного целого трехзначного числа одинковые:

  • Пишу на QBasic
    CLS
    INPUT A
    Q=A MOD 10
    W=(A MOD 100) DIV 10
    E A DIV 100
    IF Q=W OR Q=E OR W=E THEN
    PRINT «да»
    ELSE
    PRINT «нет»
    END IF
  • Самый бесхитростный вариант:
    var
    a:string;
    f:boolean;
    begin
    write(Введите число: );
    readln(a);
    f:=false;
    if a1=a2 then f:= true;
    if a1=a3 then f:= true;
    if a2=a3 then f:= true;
    if f=false then writeln(нет) else writeln(да)
    end.