среда, 2 декабря 2015 г.

Задача.

program sss;{  подсчитать произведение чисел от 1 до 8  }
     var  n, i,s: integer ;
     begin
      s:=1;
     for i:= 1 to 8 do begin
               s:=s*i;
               writeln('произведение',s);
                       end ;
         end.
program sss;{  подсчитать сумму чисел от 1 до 8  }
     var  n, i,s: integer ;
     begin
      s:=0;
     for i:= 1 to 8 do begin
               s:=s+i;
               writeln('сумм',s);
                       end ;
         end.
*  Найти произведение чисел делящихся на 2 от 1 до 10.
Program pr;
  var n:integer; P:real;
Begin
    p:=1;                  { начальное значение произведения }
  for n:=1 to 20 do
    if n mod 2=0 then p:=p*n;
  write('Произведение чисел, дел на 2 от 1 до 20 равно P=',p)

End.

Комментариев нет:

Отправить комментарий