№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
Ответ смотри в фотографии
1 Офис ворд
2- 3
3) 3
4) процесс <span> придания </span>текст у <span>определенного вида, связанный с определением левой и правой границ </span>текста<span>, абзацного отступа и </span>
uses Math; // Ссылка на модуль с объявлением функции power
var
x, k, a, y: Real; // объявляются переменные типа "с плавающей запятой"
begin
Write ('Введите x, k, a: ');
ReadLn (x, k, a); // ввод с клавиатуры значений переменных
y := Power (x + 1, 2) / 3 / k + Power (a, 4) + 2; // power - функция возведения в степень
WriteLn ('y = ', y);
end.