Задание:
Ребята помогите! Задача по Pascal ABC! Дано число, верно ли, что сумма цифр этого числа больше произведения обратных чисел (Для всякого числа а, неравного нулю, существует обратное 1/a)!
Решение:
varx,b: integer; s,p: real; beginreadln (x); s: =0; p: =1; while x>0 dobeginb: =x mod 10; s: =s+b; if b<>0 then p: =p*(1/b); x: =x div 10; end; if s>p then writeln ("сумма больше произведения") else writeln ("произведение больше суммы"); end.
Знаете другой ответ?