Составить программу, нахождения произведения чисел делящихся на 7 в промежутке от а до в. (а и в запрашиваются с клавиатуры).
Ответы
Ответ дал:
0
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
if B mod 7 = 0 then P:=P*B;
WriteLn('P = ',P);
End.
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
if B mod 7 = 0 then P:=P*B;
WriteLn('P = ',P);
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
9 лет назад