Дано натурального число. Определить произведение его цифр.

Question

50

в избранное ссылка

Знаете ответ?

nutoha · Accepted Answer

50

nutoha

19 февраля 2023

Uses crt; var x,y,z: integer; begin readln (x); y: =1; while x>0 do begin z: =x mod 10; y: =y*z; x: =x div 10; end; writeln (y); end.

комментировать

в избранное ссылка отблагодарить