Строка является палиндромом, если слева направо и справа налево она читается одинаково, например "кабак", "боб", "asdfggf' dsa". составьте алгоритм и напишите программу, определяющую, является ли строка палиндромом.
Program gt; var a,b:string; l,i:integer; begin readln(a); l:=length(a); b:=''; for i:=l downto 1 do b:=b+a[i]; if(a=b)then writeln('YES')else writeln('NO'); end.
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
var a,b:string;
l,i:integer;
begin
readln(a);
l:=length(a);
b:='';
for i:=l downto 1 do
b:=b+a[i];
if(a=b)then writeln('YES')else writeln('NO');
end.