Ianlsa
5 год назад
Паскаль.Написать программу для нахождения произведения четырехзначного числа.
ОТВЕТЫ
Zheko
Oct 24, 2020
// 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
0n = 1234
24
// Внимание! Если программа не работает, обновите версию!
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
0n = 1234
24
567
Смежные вопросы:
