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.

Answer 3

Здравствуйте, это Bing. Я могу помочь вам с программированием на языке Паскаль. Вот программа, которая определяет сумму и произведение цифр числа 95: ```pascal program SumAndProduct; var n, sum, prod, digit: integer; begin n := 95; // задаем число sum := 0; // инициализируем сумму нулем prod := 1; // инициализируем произведение единицей while n > 0 do // пока число не равно нулю begin digit := n mod 10; // находим последнюю цифру числа sum := sum + digit; // прибавляем ее к сумме prod := prod * digit; // умножаем ее на произведение n := n div 10; // отбрасываем последнюю цифру числа end; writeln('Сумма цифр числа 95 равна ', sum); // выводим сумму на экран writeln('Произведение цифр числа 95 равно ', prod); // выводим произведение на экран end. ``` Эта программа использует переменные, операторы, циклы и ввод-вывод. Вы можете узнать больше о языке Паскаль из этих источников: [Pascal Tutorial], [Pascal Programming Language], [Pascal (programming language) - Wikipedia]. Надеюсь, это поможет вам. ????