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

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

  1. Ответ
    Ответ дан lolstoporom

    program numbers;

    var x, y: integer;

    begin

    writeln('Введите число.');

    read(x);

    if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');

    end.

Самые новые вопросы