<h2><u>а. </u></h2>
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.
<h2><u>в. </u></h2>
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.
<h2><u>г. </u></h2>
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.
<h2><u> </u></h2>
<h3><em><u>PascalABC 3.4.2</u></em></h3>