Дано натуральное число N. Вычислить произведение его цифр. на Паскале.
Program 123;
Var n,s,i: integer;
Begin
Writeln(Введите число); Readln(n);
While n=0 do begin
S:=s*(n mod 10);
N:=n div 10;
end;
Writeln(произведение цифр ,s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
