// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9
Var
s:string;
i,n:byte;
p:boolean;
begin
Write('Введите строку: ');
Readln(s);
n:=Length(s);
for i:=n downto 1 do
if s[i]=' ' then Delete(s,i,1);
n:=Length(s);
p:=true;
for i:=1 to n div 2 do
if s[i]<>s[n-i+1] then
begin
p:=false;
break
end;
if p then Writeln('Палиндром')
else Writeln('Не палиндром')
end.
Ответ: 10101011=171
10101011
С конца 1=1, 1=2, 0=0, 1=8, 0=0, 1=32, 0=0, 1=128 и все это сложи.
128+32+8+2+1=171
Program one;
uses crt;
var
x,y:real;
begin
textcolor(11);
writeln('Введите число x: ');
readln(x);
if x<=0 then y:=0 else writeln(y:3:0);
end.