Дано пятизначное число, нужно вычислить сумму цыфр. Записать в порядке возрастания числа

Question

Информатика

Валюня

18 апреля, 16:04

Дано пятизначное число, нужно вычислить сумму цыфр. Записать в порядке возрастания числа

+3

Ответы (1)

Знаете ответ на вопрос?

Женя · Answer 1

Это часть про разложение на цифры uses crt;

var a, b, c, d, e, x:integer;

begin

write ('vvedi chislo') ;

readln (x) ;

a:=x div 10000;

b:=x div 1000 mod 10;

c:=x mod 1000 div 100;

d:=x mod 100 div 10;

e:=x mod 10;

writeln (' ', a,' ', b,' ', c,' ', d,' ', e) ; end.