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

Question

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

Answer 1

74

vasik

14 сентября 2024

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:
Пароль: