Найти произведение натуральных чисел от 1 до 50, кратных 7. Решить эту задачу с использованием всех трех видов циклов.
Ответы
Ответ дал:
0
Ответ:
Объяснение:
program mod7;
var
i:integer;
p:int64;
begin
p:=1;
for i:=1 to 50 do
if i mod 7=0 then p:=p*i;
writeln('Цикл for. p=',p);
///////////////////////////
p:=1; i:=1;
while i<=50 do begin
if i mod 7=0 then p:=p*i;
i:=i+1;
end;
writeln('Цикл while. p=',p);
/////////////////////////////
i:=1;p:=1;
repeat
if i mod 7=0 then p:=p*i;
i:=i+1;
until i>50;
writeln('Цикл repeat. p=',p);
readln;
end.
Ответ дал:
0
Большое спасибо! :)
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад