среда, 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.

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

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

Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2  program aaa; var h: array[1..5] of integer;  i:integer; begin       for i:=1 to 5 do    ...