Работа с разрядами пятизначного числа

@ВиЛи · Регистрация: 14.04.2016

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

Здравствуйте! Помогите решить программу в Паскаль.
_вводится с клавиатуры пятизначное числ
-вывести
-число единиц
-число десятков...
-сумму разрядов вывести
-число наоборот вывести
-является ли число четным\нечетным

Буду очень благодарна за ответ. Спасибо!

@ZX Spectrum-128 · 14.04.2016, 09:55

Внизу страницы "Похожие темы".

@a1d4r · 14.04.2016, 15:54

Pascal

var n, n1, n2, n3, n4, n5: longint;
begin
  repeat
    write('Введите пятизначное число: ');
    read(n);
  until (n >= 10000) and (n <= 99999);
  n1 := n mod 10;
  n2 := n div 10 mod 10;
  n3 := n div 100 mod 10;
  n4 := n div 1000 mod 10;
  n5 := n div 10000;
  writeln('Единиц: ', n1);
  writeln('Десятков: ', n2);
  writeln('Сумма разрядов: ', n1 + n2 + n3 + n4 + n5);
  writeln('Число наоборот: ', n1, n2, n3, n4, n5);
  if n mod 2 = 0 then writeln('Число четное')
  else writeln('Число нечетное');
end.

@ВиЛи 0 / 0 / 0 Регистрация: 14.04.2016 Сообщений: 1
		1
	Работа с разрядами пятизначного числа 14.04.2016, 09:08. Показов 4821. Ответов 2 Метки нет (Все метки) Здравствуйте! Помогите решить программу в Паскаль. _вводится с клавиатуры пятизначное числ -вывести -число единиц -число десятков... -сумму разрядов вывести -число наоборот вывести -является ли число четным\нечетным Буду очень благодарна за ответ. Спасибо! 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	14.04.2016, 09:55	2
	Внизу страницы "Похожие темы". 0

	14.04.2016, 15:54

Работа с разрядами пятизначного числа

Решение