Задача: Написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем"), например: "шалаш", "арозаупаланалапуазора", и
10-11 класс
|
выводит на экран ответ "да" или "нет".
program aaa;
var
s,s1:string;
i:longint;
begin
writeln('введите строку');
read(s);
for i:=1 to length(s) do
s1:=s[i]+s1;
if s=s1 then writeln('да')
else writeln('нет')
end.
Немного другое решение
var s : string;
i, j, n : integer;
f : boolean;
begin
Входные данные откуда брать?
НА ПРИМЕРЕ В ЭТОЙ ЗАДАЧИ
program z1;
uses crt;
const
st1='ма';
st2='ма';
var
str:string;
i,k:integer;
begin
write('введите строку: ');readln(str);
for i:=1 to length(str) do
if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then
k:=k+1;
writeln(k);
end.
Другие вопросы из категории
минимально возможного количества бит, одинакового для каждого билета. Какой информационный объем сообщения записанного устройством после того как было продано 40 билетов? 1) 50 байт 2) 55 байт 3) 440 байт 4) 10 000 бит
матрицы, содержащих хотя бы один нулевой элемент. (Помогите написать программы на с ++)
Производится стерео звукозапись с частотой 16 кГц. При записи использовались 64 уровня дискретизации. Запись длится 1 минута 10 секунд, её результаты записываются в файл, причём каждый сигнал кодируется минимально возможным и одинаковым количеством битов. Какое из приведённых ниже чисел наиболее близко к размеру полученного файла, выраженному в килобайтах?
1)3360
2)2048
3)1024
4)512
Читайте также
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.