<span>var a,b,a1,a2:integer;
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end<span>.
Пример:
25
</span><span>S = 7 P = 10
52</span></span>
1) увеличится в 10 раз
2)увеличится в 100 раз
3)уменьшится в 10 раз
Например арбуз-1 16 2 19 9
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.
Var s1,s2:string; i:integer;
Begin
readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.