Pascal. Geany пожалуйстаНайти сумму и произведение четных чисел от a до n (a меньше n)
Pascal. Geany пожалуйста
Найти сумму и произведение четных чисел от a до n (a
Гость
Гость
Ответ(ы) на вопрос:
ГостьProgram z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.
Не нашли ответ?
Похожие вопросы