profile
Опубликовано 5 лет назад по предмету Информатика от IIe4eHbKo

Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа

1) сумму и произведение его цифр;

2) число, образованное перестановкой цифр исходного числа.

  1. Ответ
    Ответ дан malashik35
    var n,sum,pr,a:integer;
    begin
    readln(n);
    sum:=0
    pr:=1;
    while n<>0 do
    begin
    a:=n mod 10;
    sum:=sum+a;
    pr:=pr*a;
    n:=n div 10;
    end;
    writeln(sum,' ',pr);
    end.