Как написать программу которая напишет все целые числа…?

Question

Как написать программу которая напишет все целые числа от 1 до 50 которые кратны 9 и посчитает их произведение исумму

Answer 1

95

zipper

09 апреля 2023

Берем цикл от 1 до 50, идем и проверяем все числа на кратность 9, если кратны, то пишем число и добавляем к сумме (и умножаем произведение). var sum, mul, i: integer; begin sum: =0; mul: =1; for i: =1 to 50 do if i mod 9=0 then begin write (i, '); sum: =sum+i; mul: =mul*i; end; writeln; writeln ('sum=', sum); writeln ('mul=', mul); end.

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

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

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

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

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