Регистрация
1Маргарет1
17.04.2021 21:33
Информатика
Есть ответ 👍

Що є першим аргументом логічної функцi IE?​

125
281
Посмотреть ответы 1

Ответы на вопрос:

poiu123
poiu123
4,5(70 оценок)
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.

Популярно: Информатика