Регистрация
butera
22.02.2022 13:02
Информатика
Есть ответ 👍

Free pascal. написать программу детектирования слова-полиндрома

125
326
Посмотреть ответы 2

Ответы на вопрос:

Агсим
Агсим
4,7(67 оценок)
Var st: string; l,i: integer; b: boolean; begin   readln(st);   l: =length(st);   b: =true;   for i: =1 to l div 2 do   if st[i]< > st[l-i+1] then b: =false;   if b then writeln('слово - палиндром')   else writeln('слово - не палиндром'); end. пример: казак слово - палиндром
popovaadelina20
popovaadelina20
4,4(55 оценок)

begin

  var x: =readreal();

  if(x< =-4) then

    print(0)

  else if((x> -4) and (x< =6)) then

    print(sin(x)**2)  

  else if((x> =6) and (x< =20)) then

    print(x**(1/3))

  else if(x> 20) then print((sin(x)**2)/2);

end.

Популярно: Информатика