Var
s, s1: string;
i: integer;
begin
writeln('введите предложение ');
readln(s);
repeat
i := pos(' ', s);
delete(s, i, 1);
until i = 0;
s1 := '';
for i := length(s) downto 1 do
s1 := s1 + s[i];
if s = s1 then
writeln('это палиндром')
else
writeln('не палиндром');
end.
Я же уже отвечал тебе:D
смотри фото
Var a,b,k1,k2,s:integer;
<span>begin </span>
<span>s:=0; </span>
<span>k1:=0; </span>
<span>writeln('Введите начало и конец отрезка'); </span>
<span>read(a,b); </span>
<span>k2:=b-a+1; </span>
<span>repeat </span>
<span>if b<0 then break; </span>
<span>s:=s+b; </span>
<span>b:=b-1; </span>
<span>inc(k1); </span>
<span>until (b=-1) or (b=a-1); </span>
<span>writeln('Сумма всех целых положительных чисел на отрезке = ',s); </span>
<span>writeln('Количество отрицательных целых чисел = ', k2-k1); </span>
<span>end.</span>
Var
a, n, b: integer;
begin
readln(a, b);
for n := a to b do
write(n, ' ');
writeln();
writeln(b - a + 1);
<span>end.
==============
var
a, b: integer;
begin
readln(a, b);
writeln((2 * a + (b - a)) * 0.5 * (b - a + 1)); //Через арифм. прогрессию эффективнее
<span>end.</span></span>