Voanshas
6 год назад
Пожалуйста посчитайте, пожалуйста с задачей:Даны два целых числа A и B( A<B).Найти произведение всех целых четных чисел от A и B включительно. Начальным значением произведения считать равным 1
ОТВЕТЫ
Дарина
Oct 24, 2020
Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
66
Смежные вопросы:
