составить программы

1. найти сумму всех 3 х значных чисел кратных 17.

2. найти произведение всех чисел меньше 16.

Question

Информатика

Евлампия

3 октября, 13:33

составить программы

1. найти сумму всех 3 х значных чисел кратных 17.

2. найти произведение всех чисел меньше 16.

+5

Ответы (1)

Знаете ответ на вопрос?

Армен · Answer 1

1)

var b, i:integer;

begin

b:=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.

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

составить программы

1. найти сумму всех 3 х значных чисел кратных 17.

2. найти произведение всех чисел меньше 16.