Дано двузначное число. определить одинаковы ли его числа.(Язык Паскаль)

30 Сен 2021 в 19:43
163 +1
1
Ответы
1

program IdenticalDigits;

var
number, firstDigit, secondDigit: integer;

begin
writeln′Enteratwo−digitnumber:′'Enter a two-digit number: 'Enteratwodigitnumber:;
readlnnumbernumbernumber;

firstDigit := number div 10; // extracting the first digit
secondDigit := number mod 10; // extracting the second digit

if firstDigit = secondDigit then
writeln′Thedigitsofthenumberareidentical.′'The digits of the number are identical.'Thedigitsofthenumberareidentical. else
writeln′Thedigitsofthenumberaredifferent.′'The digits of the number are different.'Thedigitsofthenumberaredifferent.;
end.

17 Апр 2024 в 10:46
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир