Найти произведение четных и нечетных чисел, используя оператор repeat

@qwerff · Регистрация: 22.11.2015

Студворк — интернет-сервис помощи студентам

Введите N чисел. Найти произведение четных и нечетных чисел, используя оператор РИпит. Еще нужна блок-схема

@CodeR · 23.11.2015, 11:28

Pascal

Var i,n,m,k1,k2:integer;
    pr1,pr2:real;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until n>0;
    k1:=0;pr1:=1;
    k2:=0;pr2:=1;
    writeln('Введите ',N,' целых чисел');
    i:=1;
    Repeat
      read(m);
      if m mod 2 = 0 then
      Begin
        pr2:=pr2*m;
        k2:=k2+1;
      End
      else
      Begin
        pr1:=pr1*m;
        k1:=k1+1;
      End;
      i:=i+1;
    Until i>n;
    if k2=0 then writeln('Чётных нет')
     else writeln('Произведение чётных = ',pr2:0:0);
    if k1=0 then writeln('Нечётных нет')
     else writeln('Произведение нечётных = ',pr1:0:0);
    readln;
End.

@qwerff 1 / 1 / 0 Регистрация: 22.11.2015 Сообщений: 9
		1
	Найти произведение четных и нечетных чисел, используя оператор repeat 22.11.2015, 16:48. Показов 3163. Ответов 1 Метки нет (Все метки) Введите N чисел. Найти произведение четных и нечетных чисел, используя оператор РИпит. Еще нужна блок-схема 0

Опции темы

Найти произведение четных и нечетных чисел, используя оператор repeat

Решение