Составить программы 1.найти сумму всех 3х значных чисел кратных 17. 2.найти произведение всех чисел меньше 16.
Составить программы 1.найти сумму всех 3х значных чисел кратных 17. 2.найти произведение всех чисел меньше 16.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы