Проверить, является ли введенное
5-9 класс
|
слово палиндромом (перевертышем, то есть одинаково читается слева направо и
наоборот).
Пример палиндрома: КАЗАК.
1)
var s:string;
i:integer;
f:boolean;
begin
f:=false;
write ('S = ');
readln(s);
for i:=1 to length(s) div 2 do
if s[i]=s[length(s)-i+1] then f:=true else
begin
f:=false;
break;
end;
if f then writeln ('PALINDROM') else writeln ('NOT PALINDROM');
readln;
end.
2)
var a,b:integer;
count,j:integer;
function palindr (n:integer):boolean;
var s:string;
i:integer;
begin
palindr:=false;
str (n,s);
for i:=1 to length(s) div 2 do
if s[i]=s[length(s)-i+1] then palindr:=true else
begin
palindr:=false;
break;
end;
Другие вопросы из категории
Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d= 1200 кг/м (кубический). Составить программу, которая вычисляет:
а) давление столба жидкости на дно сосудов p=dgh (g= 9,8 м/с (в квадрате));
б) массу жидкости в каждом сосуде m=dV=dhS (S=3,14R (в квадрате));
в) суммарную массу жидкости.
Читайте также
2) программа проверяет является ли введенное число нечетным и при этом делится на 5
3) задача нахождения факториала числа
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!!!
может превосходить число сотен). Если не является, то вывести ближайшее следующее число-палиндром.
соответствующее сообщение Является либо Не является
соответствующее сообщение является либо не является
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.