program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= c*100 + b*10 + a;
writeln('Число наоборот: ',abc);
end.
2.program raf105;
var abc,a,b,c: integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
b:= (abc div 10) mod 10;
c:= abc mod 10;
abc:= b*100 + c*10 + a;
writeln('Первое число переместили в конец: ',abc);
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
begin
readln(a);
b:=a div 100;
c:=a mod 100 div 10;
f:=a mod 100 mod 10;
if (b=5) or (c=5) or (f=5) then write('входит')
else write('невходит');
if (b=7) or (b=4) or (c=7) or (c=4) or (f=7) or (f=4) then write('входит')
else write('невходит');
end.