Регистрация
tsukikokawaii
29.04.2022 13:50
Информатика
Есть ответ 👍

Добрый вечер! Нужна с формулами для . )​

159
305
Посмотреть ответы 1

Ответы на вопрос:

00000000000000000020
00000000000000000020
4,5(31 оценок)
  var mas: array of integer;     sum ,j, i,n: integer; begin////////////////////////////////////////ввод числа/////////////////////////////////////////// while n< > 0 do begin write('x:   ' ); readln(n); if n=0 then break еlse begin setlength(mas,length(mas)+1); mas[high(mas)]: =n; end; end; //////////////////////////////////////////////////////////////////////////////////////////////////////////    writeln('otrisatelni'); /////////////////////////////////////////////////1)///////////////////////////////    for i: = 0 to high(mas) do    if mas[i]< 0 then    write(mas[i]);     writeln('chetni'); ////////////////////////////////////////////////////////////2)/////////////////////////     for j: = 0 to high(mas) do    if mas[j]mod 2=0 then    write(mas[j]);     writeln('proizvedenie'); //////////////////////////////////3///////////////////////////////////////    sum: =1;       for i: = 0 to high(mas) do      sum: =sum*mas[i];       write(sum);     readln; end.

Популярно: Информатика