Запишите на языке паскаль программу,которая для произвольного двузначного числа определяет: а) сумму и произведение его цифр; б) число,образованное перестановкой цифр исходного числа.
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
var
a,b,c,d,e:integer;
begin
writeln('vvedity chislo ot 11 do 99 ili vvedity 0 dlya generacii sluchainogo chisla');
readln(a);
if a=0 then
begin
randomize;
a:=random(89) + 10
end;
b:=a div 10;
c:=a mod 10;
d:=b+c;
e:=b*c;
writeln('chislo=',a);
writeln('summa cifr chisla ',a,'=',d);
writeln ('proizvedenie cifr chisla ',a,'=',e);
writeln('chislo obrazovanoe perestanovkoi cifr chisla ',a,'=',c,b);
readln;
end.