Составить программы 1. Найти сумму всех 3 х значных чисел кратных 17. 2. Найти…

Question

47

Составить программы 1. Найти сумму всех 3 х значных чисел кратных 17. 2. Найти произведение всех чисел меньше 16.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

korund89 · Accepted Answer

62

korund89

29 февраля 2024

1) var b,i: integer; beginb: =0; for i: =100 to 999 do if (i mod 17)=0 then b: =b+i; writeln (b); end. 2) var b,c: integer; begin b: =1; for c: =1 to 15 do b: =b*c; writeln (b); end.

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

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

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

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