в ПАСКАЛЕ.
10-11 класс
|
строка содержит одно слово. является ли оно палиндромом?
ПОМОГИТЕ ПЛИЗ!
var
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.
Другие вопросы из категории
целых числа N и K (1 <= N <= 10^100, 1 <= K <= 10^9) записанные в двух отдельных строках.
Выходные данные:В выходной поток выведите остаток от деления N на K.
Пример входного файла (input.txt): 239 16 Пример выходного файла (output.txt): 15пассивного разветвителя.
1) терминатор
2) активатор
3) концентратор
4) адаптер
5) коннектор
буква А встречается в книге. Написать программу в Паскале. Помогите пожалуйста
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;