Спасите скоро сессия !!!

[PavelSS]

а да №3 конечно

[alex_fcsm]

Задача2

const n=255;
var a:array[1..n+1] of string[10];
    i,j,k:integer;
    s,st:string;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:='';
  k:=random(7)+3;
  for j:=1 to k do
   a[i]:=a[i]+chr(ord(random(25)+65));
 end;
writeln('Input string');
readln(st);
s:='';
for i:=1 to length(st) do
      s:=s+UpCase(st[i]);
a[n+1]:=st;
i:=1;
while s<>a[i] do inc(i);
 if i=(n+1) then writeln('NO')
    else writeln('Index:'i);
end.

[PavelSS]

alex поясни я так и непонял где какая задача =))))

[PavelSS]

но за задачи огромное спасибо

[alex_fcsm]

Понятно теперь?

[PavelSS]

да да а третью сможешь решить =))

[alex_fcsm]

Сообщение от PavelSS

да да а третью сможешь решить =))

А пост #9 не подойдет?

[PavelSS]

я думал это первая =))) прости пасибо огромное ещё раз

[PavelSS]

Помогите ещё одну задачку...
Дан расходящийся рях x+(3x+1)+(5x+2)+(7x+3)+... Найти сумму элементов, абсолютные величины которых не превышают 500.

[alex_fcsm]

var sum,x:real;
    i:integer;

begin
writeln('Input X');
readln(x);
i:=0;sum:=0;
while abs((2*i+1)*x+i)<=500 do
 begin
  sum:=sum+((2*i+1)*x+i);
  inc(i);
 end;
writeln('Summa(',i,'):',sum:10:2);
end.