Анна1169
?>

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

Информатика

Ответы

okasnab

ответ:

объяснение:

readln(arr);

for i : = 0 to length(arr) do

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

didizain
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.
Тарбаева1243
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Pascal написать программу проверяющую есть ли в заданном слове две подряд идущие одинаковые буквы
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

svetavancevich
evada2
contact
sales5947
ilysozkn27
troian07
АлександровнаАслан1571
ИП-Сысоев1628
Yuliya Aleksandr686
mnogoz
kate1610
fedorenkoroman
alesia1986
gabbro19975650
goldservicepro