плизз помогите составить программу паскаль:состоит ли двухзначное число из одинаковых цифр
Answers & Comments
saypl
Var x:integer; begin write('Введите двузначное число'); readln(x); if (x mod 10) = (x div 10) then writeln('Число ',x,' состоит из одинаковых цифр') else writeln('Число ',x,' состоит из разных цифр'); end.
Answers & Comments
begin
write('Введите двузначное число'); readln(x);
if (x mod 10) = (x div 10) then writeln('Число ',x,' состоит из одинаковых цифр') else writeln('Число ',x,' состоит из разных цифр');
end.