if (arr[i] = arr[i+1]) then writeln("есть две буквы подряд");
didizain
30.08.2020
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
30.08.2020
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 написать программу проверяющую есть ли в заданном слове две подряд идущие одинаковые буквы
ответ:
объяснение:
readln(arr);
for i : = 0 to length(arr) do
if (arr[i] = arr[i+1]) then writeln("есть две буквы подряд");