Вычислить произведение чисел от -20 до 30 которые делятся на 3

Var i,p: integer; begin p: =1; for i: =-20 to 30 do if i mod 3 = 0 then p*=i; writeln(p); end.

паскаль авс:

 

program krysatul; uses crt; const n=12; var   f: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   {цикл repeat}  f: =1; i: =1;   repeat      f: =f*n;       i: =i+1;   until i> n;   writeln('результат цикла repeat: ');   writeln(' factorial ',n,'! =',f);   writeln(); {цикл while}  f: =1; i: =1;   while i< =n do      begin          f: =f*n;           i: =i+1;       end;   writeln('результат цикла while: ');   writeln(' factorial ',n,'! =',f);   writeln(); {цикл for}  f: =1;   for i: =1 to n do      begin          f: =f*n;       end;   writeln('результат цикла for: ');   writeln(' factorial ',n,'! =',f);   writeln(); end.

 

ну рас не сказано на каком языке это нужно написать, напишу лишь логику решения к примеру цикл repeat - until(для паскаля)

writleln('введите число чей факториал ищем');

readln(n)

x=1

z=1 

repeat

x=x*z

z=z+1

until z=n

так же обычный цикл for рассмотрю для vba

msgbox(" введите число чей факториал ищем ")

inputbox(n)

x=1 

 

  for i=1 to n

x=x*i

i=i+1 

next

и конечно же всегда можно обойтись без цикла как такового зациклив обычный if оператором безусловного перехода его для обычного бэйсика рассмотрим

10 x=1  

11  i=1  

12 print (' введите число чей факториал ищем ')

  13 input(n)

  20 x=x*i

30 i=i+1 

40 if i< n then goto 20

еще конечно можно с while и do-while , но это совсем другая , у нас в школе были лишь эти 3 языка программирования так что по аналогии сделаешь на тот который вам