Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
<span>Живое существо своими органами чувств (глаз, ухо, кожа, язык и т. д. ) воспринимает информацию из внешнего мира, перерабатывает ее в определенную последовательность нервных импульсов, передает импульсы по нервным волокнам, хранит в памяти в виде состояния нейронных структур мозга, воспроизводит в виде звуковых сигналов, движений и т. п. , использует в процессе своей жизнедеятельности</span>
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln ('Произведение элементов массива с четными числами равно: ',p);
End.<span>
</span>
1) 70
2) 427
3)50
4) нет вопроса
5) 3400
6) 2200
7)277
8) 250
9) 533
10) 140