Составьте программу, которая находит произведение четных чисел и сумму нечетных чисел в диапазоне от 1 до 10. в pascalabc

program asd;

var chet,nechet,i: integer;

begin

for i: =1 to 10 do begin

      if (i div 2)=0 then chet: =chet*i;

      if (i div 2)=1 then nechet: =nechet+i

end;

writeln(chet,nechet);

end.

uses crt;   var s,i: integer;   begin  clrscr;   i: =0;   s: =0;   while i< 10 do  begin  i: =i+2;   s: =s+i;   end;   writeln('summa chetnih ot 1 do 10 = ', s);   i: =1;   s: =1;   while i< 9 do  begin  i: =i+2;   s: =s*i;   end;   writeln('proizv nechetnih ot 1 do 10 = ', s);   readln;   end.

Нам задавали только 5, вот они:   использовать чертежникалг цифра_1начопустить перосместиться на вектор (0,2)сместиться на вектор (2,2)сместиться на вектор (0,-4)поднять перосместиться на вектор (-2,0)кон  использовать чертежникалг цифра_2начопустить перосместиться в точку (1,1)сместиться в точку (1,2)сместиться в точку (0,2)поднять перосместиться в точку (0,0)опустить перосместиться в точку (1,0)поднять перосместиться в точку (0,0)кониспользовать чертежникалг цифра_3начопустить перосместиться на вектор (1,1)сместиться на вектор (-1,0)сместиться на вектор (1,1)сместиться на вектор (-1,0)поднять перосместиться на вектор (0,-2)кон  использовать чертежникалг цифра_4начподнять перосместиться на вектор (1,0)опустить перосместиться на вектор (0,2)поднять перосместиться на вектор (0,-1)опустить перосместиться на вектор (-1,0)сместиться на вектор (0,1)поднять перосместиться на вектор (0,-2)кониспользовать чертежникалг цифра_5начопустить перосместиться на вектор (1,0)сместиться на вектор (0,1)сместиться на вектор (-1,0)сместиться на вектор (0,1)сместиться на вектор (1,0)поднять перосместиться на вектор (-1,0)сместиться на вектор (0,-2)кон

1. строка получается слишком длиной, поэтому разбиваем ее на две части sub z1() dim n as integer dim i as integer dim s1 as string dim s2 as string for i = 100 to 999   if i mod 3 = 0 then     n = n + 1     if len(s1) < 1024 then         s1 = s1 & i & " "         else             s2 = s2 & i & " "         end if     end if next i msgbox (s1) if len(s2) > 0 then msgbox ("продолжение: " & s2) msgbox ("их количетво: " & n) end sub1. вариант дла excel. срабатывает на двойном клике мышки. можешь приписать любому другому событиюprivate sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)dim n as integerdim i as integerfor i = 100 to 999  if i mod 3 = 0 then    n = n + 1    cells(n, 1) = i    end ifnext imsgbox ("их количество: " & n)end sub2.sub z2()dim k as integerdim p as doublek = inputbox("введите  k: ")p = 1 for i = 1 to k     p = p * (-1 + 4 * (i - 1)) next i msgbox ("произведение: " & p) end sub