Дано пятизначное число, нужно вычислить сумму цыфр. - вопрос №1995324 от БеЗуМнаЯолИвьЕшКа 03.02.2021 07:12

Question

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

БеЗуМнаЯолИвьЕшКа · Answer

Это часть про разложение на цифры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.