№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
Провайдер.и все.больше ничего
Program pr1;
Var x, i,n:Integer; P,a,b: Real;
Begin
P:=1;
a:=0.2;
b:=11/40;
Writeln ('Введите x');
Writeln ('Введите n');
Read (x);
Read (n);
For i:=1 to n do begin
P:=p*(x+(a+b));
a:= a+b;
end;
Write ('P=',P);
End.
<span>1. Находим символ, который нужно удалить.</span>
<span>2. Ставим курсор после символа.</span>
<span>3. Нажимаем клавишу Backspace.</span>