Ответ:
ок не буду))))))))))))))))))
a = "1"
b = "2"
n = 3
(a + b) * n = "12"*3 = "121212"
a*n + b*n = "1"*3 + "2"*3 = "111222"
//PascalABC.Net 3.2
{1}
begin
var sum:=0;
for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger;
print ('Сумма:', sum);
end.
{2}
function f(n: integer):=1/n;
begin
var sum:=0.0;
for var i:=1 to readinteger ('Введите n: ') do sum+=f(i);
write ('S = ', sum);
end.
{3}
begin
var count:=1;
for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2;
write ('Кол-во амеб: ', count);
end.
{4}
begin
var sum:=0.0;
var x:=readreal ('Введите x: ');
for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x);
write (sum);
end.
{5}
function pow(a, n: integer):biginteger;
begin
var sum:=1;
for var i:=1 to n do sum*=a;
result:=sum;
end;
begin
write (pow(readinteger, readinteger));
end.
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.