#include
int main()
{
float a = 0, b = 0;
int k = 10;
scanf("%f", & a);
for(int i = 2; i < = k; i += 1)
{
scanf("%f", & b);
if(b < = a)
{
printf("ne obrazuyut");
return 0;
}
a = b;
}
printf("obrazuyut");
return 0;
}
var
s, ss: string;
ls, lss, i, j: integer;
flag: boolean;
begin
readln(s);
readln(ss);
i : = 1;
ls : = length(s);
lss : = length(ss);
flag : = false;
while i < = ls - lss + 1 do
begin
if s[i] = ss[1] then
begin
flag : = true;
for j : = 1 to lss - 1 do
if s[i + j] < > ss[j + 1] then
begin
i : = i + j;
flag : = false;
break
end;
if flag then
begin
write('является');
exit;
end;
end;
i += 1;
end;
write('не является');
end.
Поделитесь своими знаниями, ответьте на вопрос:
:написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем"), например: "шалаш", "арозаупаланалапуазора", и выводит на экран ответ "да" или "нет".