Решить , используя «цикл с параметром», «цикл с предусловием», «цикл с постусловием». найти сумму и произведение первых n натуральных чисел.

program cikli;

unit math;

var

  i,n,s,p: integer;

  a: array[1..20]of integer;

begin

  writeln('исходный массив: ');

  for i: =1 to 20 do begin

  a[i]: =randomrange(1,20);

  writeln(' элемент ',i,' =  ',a[i]);

  end;

  writeln('сумму и произведения скольки первых чисел вы хотите посчитать? ');

  readln(n);

  s: =0; p: =1;

//цикл с параметром

  for i: =1 to n do begin

  s: =s+a[i];

  p: =p*a[i];

  end;

writeln('цикл с параметром');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

 

//цикл с предусловием

i: =1; p: =1; s: =0;

while i< > n do begin

  s: =s+a[i];

  p: =p*a[i];

  i: =i+1;

end;

writeln('цикл с предусловием');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

 

//цикл с постусловием

i: =0; s: =0; p: =1;

repeat

  i: =i+1;

  s: =s+a[i];

  p: =p*a[i];

until i=n;

writeln('цикл с постусловием');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

end.

ibm определила термин в широком и расплывчатом, как "комбинация людей, процедуры и оборудование, которое превращает идеи в печатных коммуникаций", и первоначально использовали его, чтобы включить диктофоны и обычные, с ручным selectric пишущих машинок.к начале семидесятых годов, однако, этот термин обычно понимают полуавтоматические машинки получая по крайней мере некоторые формы электронного редактирования и коррекции, а также возможность получения идеального "оригиналов".  таким образом,  раз  хэдлайнерами в 1974 году xerox  продукт как "быстрее электронные машинки", но продолжал описывать продукт, который не имеет экрана, как "текстовый процессор, а не строго пишущей машинке, в том, что он сохраняет копии на магнитной ленте или магнитных карт для повторного ввода, корректировки и последующей распечатки "

#include "stdafx.h"#include < iostream> #include < conio.h> using namespace std; int main(){      int a[10];       for (int i = 0; i < 10; i++)      {            cout < < "a[" < < i < < "] = ";             cin > > a[i];       }      cout < < "source massiv: ";       for (int i = 0; i < 10; i++)      {            cout < < a[i] < < " ";             if (a[i] > 15)                  a[i] = 15;       }      cout < < "\nnew massiv: ";       for (int i = 0; i < 10; i++)            cout < < a[i] < < " ";       cout < < endl;       _getch();       return 0; }