Составить программу вычисления суммы и произведения натуральных чисел…

Question

Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Оченьнадо!

Answer 1

65

timur29

15 апреля 2023

Вот. Program z1; Uses crt; Const N=15; Var a: array [1… n] of integer; sum,i,pr: integer; Beginsum: =0; For i: =1 to n dobegina[i]: =random (10) -15; Writeln (a[i]); end; for i: =1 to n doif a[i] mod 9=0 thenbeginsum: =sum+a[i]; pr: =1*a[i]; end; Writeln ('Сумма: '); Writeln (sum); Writeln ('Произведение: '); write (pr); end.

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

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

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

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

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