Запросить с клавиатуры число. Равны ли его последняя и предпоследняя цифры?

@максим12344235 · Регистрация: 22.03.2017

Author24 — интернет-сервис помощи студентам

запросить с клавиатуры число. Равны ли его последняя и предпоследняя цифры?

@Puporev · 02.05.2017, 13:53

Pascal

var n:integer;
     a,b:byte;
begin
write('n=');
readln(n);
n:=abs(n);
if n<10 then write('В числе только одна цифра')
else
 begin
  a:=n mod 10;
  b:=n div 100 mod 10;
  if a=b then write('Последняя и предпоследняя цифры равны')
  else write('Последняя и предпоследняя цифры не равны');
 end;
end.

Добавлено через 5 минут
В строке 11 опечатался, нужно

Pascal

1	b:=n div 10 mod 10

@максим12344235 0 / 0 / 0 Регистрация: 22.03.2017 Сообщений: 6
		1
	Запросить с клавиатуры число. Равны ли его последняя и предпоследняя цифры? 02.05.2017, 12:25. Показов 1538. Ответов 1 Метки нет (Все метки) запросить с клавиатуры число. Равны ли его последняя и предпоследняя цифры? 0

	02.05.2017, 13:53

Запросить с клавиатуры число. Равны ли его последняя и предпоследняя цифры?

Решение