1 Дано четырехзначное число. Отыскать:а) сумму его цифр; ПаскальДано четырехзначное

а.                                              

program raf105;

var abcd,a,b,c,d,sum: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

sum:= a+b+c+d;

writeln('Сумма цифр: ',sum);

end.

в.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= a*1000 + c*100 + b*10 + d;

writeln('Вывод: ',abcd);

end.

г.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= c*1000 + d*100 + a*10 + b;

writeln('Вывод: ',abcd);

end.

PascalABC 3.4.2