2) writeln (copy(s1,2,6));
3) delete (s,1,5);
У меня это получилось сделать так:
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.
1. Шиной (магистралью)
Плоттер-устройство печати
Модем-устройство меняющий аналоговую информацию в цифровую и обратно
Контроллер -регулятор, управляющий элемент
begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
begin
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000