Задача: нужно составить на паскале такую программу,что бы писать туда четырёх значное число,чтобы это число раскладывалось по цифрам,находилось произведение и сумма этих цифр, и находилась большая цифра

1

Ответы и объяснения

  • Sky09
  • профессор
2013-12-28T14:20:35+00:00
Uses crt;
var a,max,sum,pr,a1,a2,a3,a4:integer;
begin
     write('Введите число: '); readln(a);
     a1:=a div 1000;
     a2:=a div 100 mod 10;
     a3:=a mod 100 div 10;
     a4:=a mod 10;
     sum:=a1+a2+a3+a4;
     pr:=a1*a2*a3*a4;
     if a1>=a2 then max:=a1 else max:=a2;
     if max<=a3 then max:=a3;
     if max<=a4 then max:=a4;
     writeln('Сумма цифр числа: ',sum);
     writeln('Произведение цифр числа: ',pr);
     writeln('Максимальная цифра в числе: ',max);
end.
Буду благодарна за "лучший ответ")