Pascal написать программу проверяющую есть ли в заданном слове две подряд идущие одинаковые буквы

ответ:

объяснение:

readln(arr);

for i : = 0 to length(arr) do

if (arr[i] = arr[i+1]) then writeln("есть две буквы подряд");

Var i,s: integer; begin                                         s: =0; for i: =0 to 9 do     {цикл, перебираем цифры от 0 до 9 и присваиваем их       переменной   i  }       s: =s+sqr(i);                           {sqr(i)- квадрат i, вычисляем квадрат и добавляем его в }                                                     общую сумму s} writeln('сумма квадратов цифр = ',s);         {выводим сумму} end.

Var     x,max: real;   n,i: integer; begin write('введите число n: '); readln(n); for i: =1 to n do   begin   write('введите число ',i,': ');   readln(x);   if x< 0 then       begin       if max=0 then max: =x;                       // если это первое отр.число       if x> max then max: =x       end   end; writeln('наибольшее среди отрицательных: ',max) end.