идентификатор в паскале

[TOMMY666]

255. Даны натуральное число n, символы s1,..., sn. Получить пер-
вое натуральное i, для которого каждый из символов s(i) и s(i+1)
совпадает с буквой 'a'. Если это не так, то ответ - ноль.

260(в). Даны натуральное число n, символы s1,..., sn, среди ко-
торых есть двоеточие. Получить все символы, расположенные между
первым и вторым двоеточием. Если второго двоеточия нет, то полу-
чить все символы, после единственного имеющегося двоеточия вклю-
чительно.

[Филантроп]

255

uses crt;
var ma:array[1..100] of char;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0;
for i:=1 to n-1 do
if (ma[i] ='a') and (ma[i+1]='a') then begin k:=i;break;end;
writeln(k);
readln;
end.

260

uses crt;
var ma:array[1..100] of char;
i,n,k,a:integer;
begin
readln(n);
for i:=1 to n do
readln(ma[i]);
k:=0;a:=0;
for i:=1 to n do
if ma[i] =':'  then begin k:=i;break;end;
for i:=n downto k+1 do
if ma[i] =':'  then begin a:=i;break;end;
if a<>0 then
for i:=k+1 to a-1 do  
write(ma[i])
else for i:=k to n do
write(ma[i]);
readln;
end.

[IT-man]

2Филантроп
"Нам хлеба не надо-работу давай" ?

[TOMMY666]

вот ещё
270(д). Даны символы S1, S2,... Известно, что символ S1 отличен
от пробела и что среди S2, S3,... имеется хотя-бы один пробел.
Рассматриваются S1,... SN - символы, предшествующие первому про-
белу (N-заранее известно). Преобразовать последовательность
S1,... SN : удалив из каждой группы цифр, которой не предшес-
твует точка, все начальные нули (кроме последнего, если за ним
идет точка ).

[ROMA2PVT]

TOMMY666 а ты не пробовал новую тему создать.Чё не получается?

[TOMMY666]

нет я незнаю как

[ROMA2PVT]

Так я разъясню:
Заходим на форум программистов => Паскаль и сверху будет написано новая тема.Нажать и будет вам счастье.Вроди всё доступно объяснил.

[Жека-старший]

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

Что-то меня сомненья гложут в правильности этого решения...
Не пойму я как подсчитывается факториал числа
Да и во всем прочем ничего не понимаю (одни суммы, без вычитаний)

насчет суммы без вычитаний- я не прав... задание не внимательно прочитал, не заметил..
как такой вариант?

program pr_1;
var x,fac,sum:real;
    i:byte;
    zn:integer;
begin
  writeln('Vvedite x');
  readln(x);
  fac:=1;
  zn:=1;
  for i:=1 to 13 do
  begin
     fac:=fac*i;
     if i mod 2<>0 then begin
                           sum:=sum+zn*x/fac;
                           zn:=zn*(-1);
                        end;
  end;
  writeln('Summa- ',sum);
end.

а насчет факториала.
он считается, переменная fac
при каждом проходе цикла fac= (i)!

[TOMMY666]

ПАРНИ ПОСМОТРИТЕ

[TOMMY666]

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

Чуаки, препод сказал что эти 2 задачки не правельные

82. Дано действительное число x. Вычислить
(x-2)(x-4)(x-8)... (x-64)
-------------------------.
(x-1)(x-3)(x-7)... (x-63)

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

В 80 цифры сверчу это степень. Над вторым x третья, над третим пятая и т.д