Ребята помогите! Задача по Pascal ABC!

Question

Ребята помогите! Задача по Pascal ABC! Дано число, верно ли, что сумма цифр этого числа больше произведения обратных чисел (Для всякого числа а, неравного нулю, существует обратное 1/a)!

Answer 1

74

vasik

19 апреля 2023

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.

пользователи выбрали этот ответ лучшим

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: