составить программы 1.найти сумму всех 3х значных чисел кратных ...
составить программы
1.найти сумму всех 3х значных чисел кратных 17.
2.найти произведение всех чисел меньше 16.
Есть ответ
17.12.2022
229
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
