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
program raf105;
var a,b,c,po,ot: integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if a > 0
then po+= 1;
if a < 0
then ot+= 1;
if b > 0
then po+= 1;
if b < 0
then ot+= 1;
if c > 0
then po+= 1;
if c < 0
then ot+= 1;
writeln('Количество положительных чисел: ',po);
writeln('Количество отрицательных чисел: ',ot);
end.
if6program raf105;
var a,b: real;
begin
write('Введите 2 числа: ');
readln(a,b);
if a > b
then writeln(a)
else writeln(b);
end.
if7program raf105;
var a,b: real;
begin
write('Введите 2 числа: ');
readln(a,b);
if a < b
then writeln('1')
else writeln('2');
end.
Язык PascalABC 3.4.2