47

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

26 февраля 2023

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

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



62

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.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...