Паскаль. Написать программу для нахождения произведения четырехзначного числа.. Created by Dalalonkac. informatika-ru

Паскаль. Написать программу для нахождения произведения четырехзначного числа...

July 2022 1 9 Report

Паскаль.
Написать программу для нахождения произведения четырехзначного числа.

Answers & Comments

danulpopov // PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:= ReadInteger('n =');
var agg:= 1;
while (n > 0) do begin
agg *= n mod 10;
n := n div 10;
end;
Writeln(agg);
end.

Примеры:
n = 1035
0
``````````````````````
n = 1234
24

0 votes Thanks 1

Dalalonkac Огромное спасибо, вы мне очень помогли!

paskal nuzhno sostavit programmu dlya nahozhdeniya cifr trehznachnogo chisla cherez

Answer

Dalalonkac July 2022 | 0 Ответы

6 863

Answer

Answers & Comments

paskal nuzhno sostavit programmu dlya nahozhdeniya cifr trehznachnogo chisla cherez

6 863

рекомендуемые вопросы

Helpful Links

Helpful Social