Question

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

Answer 1

Ответ:

pascal

Объяснение:

const

 n = 95;

var

 s, p, i: integer;

 l: string;

begin

 l := IntToStr(n);

 p := 1;

 for i := 1 to Length(l) do

 begin

   s := s + StrToInt(l[i]);

   p := p * StrToInt(l[i]);

 end;

 WriteLn('Сумма цифр числа ', n, ' равна ', s);

 WriteLn('Произведение цифр числа ', n, ' равна ', p);

end.

Answer 2

// PascalABC.NET

begin

   var n := 95;

   var (d1, d2) := (n div 10, n mod 10);

   Println('Сумма цифр числа 95 равна', d1 + d2);

   Println('Произведение цифр числа 95 равно', d1 * d2);

end.