1. напишите программу, где пользователь вводит любое целое положительное число. а программа суммирует все числа от 1 до введенного пользователем числа.

ответ:

program summa;

var

  n, s, i: integer;

begin

  write ('введите число: ');

  readln (n);

  s : = 0;

  for i : = 1 to n do

    s : = s + i;

  writeln ('сумма = ', s);

  readln;

end.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919 

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.