Плизз помогите составить программу паскаль:состоит ли двухзначное число из одинаковых цифр
Плизз помогите составить программу паскаль:состоит ли двухзначное число из одинаковых цифр
Гость
Ответ(ы) на вопрос:
Гостьvar x:integer;
begin
write('Введите двузначное число'); readln(x);
if (x mod 10) = (x div 10) then writeln('Число ',x,' состоит из одинаковых цифр') else writeln('Число ',x,' состоит из разных цифр');
end.
Не нашли ответ?
Похожие вопросы