Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
1)function first(k,l,m,n:integer):boolean;
begin
if (((k mod 2=0) and (l mod 2<>0)) or ((l mod 2=0) and (k mod 2<>0)))=(((m mod 2=0) and (n mod 2<>0)) or ((n mod 2=0) and (m mod 2<>0))) then first:=true else first:=false;
end;
2)function second(k,l,m,n:integer):boolean;
<span> begin
if (k=m) or (l=n) or (((k+1)=m) and ((l+1)=n)) or (((k+2)=m) and ((l+2)=n)) or (((k+3)=m) and ((l+3)=n)) or (((k+4)=m) and ((l+4)=n)) or (((k+5)=m) and ((l+5)=n)) or (((k+6)=m) and ((l+6)=n)) or (((k-1)=m) and ((l-1)=n)) or (((k-2)=m) and ((l-2)=n)) or (((k-3)=m) and ((l-3)=n)) or (((k-4)=m) and ((l-4)=n)) or (((k-5)=m) and ((l-5)=n)) or (((k-6)=m) and ((l-6)=n)) or (((m+1)=k) and ((n+1)=l)) or (((m+2)=k) and ((n+2)=l)) or (((m+3)=k) and ((n+3)=l)) or (((m+4)=k) and ((n+4)=l)) or (((m+5)=k) and ((n+5)=l)) or (((m+6)=k) and ((n+6)=l)) or (((m-1)=k) and ((n-1)=l)) or (((m-2)=k) and ((n-2)=l)) or (((m-3)=k) and ((n-3)=l)) or (((m-4)=k) and ((n-4)=l)) or (((m-5)=k) and ((n-5)=l)) or (((m-6)=k) and ((n-6)=l)) or (((k-1)=m) and ((l+1)=n)) or (((k-2)=m) and ((l+2)=n)) or (((k-3)=m) and ((l+3)=n)) or (((k-4)=m) and ((l+4)=n)) or (((k-5)=m) and ((l+5)=n)) or (((k-6)=m) and ((l+6)=n)) or (((k-1)=m) and ((l+1)=n)) or (((k-2)=m) and ((l+2)=n)) or (((k-3)=m) and ((l+3)=n)) or (((k-4)=m) and ((l+4)=n)) or (((k-5)=m) and ((l+5)=n)) or (((k-6)=m) and ((l+6)=n)) or (((m-1)=k) and ((n+1)=l)) or (((m-2)=k) and ((n+2)=l)) or (((m-3)=k) and ((n+3)=l)) or (((m-4)=k) and ((n+4)=l)) or (((m-5)=k) and ((n+5)=l)) or (((m-6)=k) and ((n+6)=l)) or (((m-1)=k) and ((n+1)=l)) or (((m-2)=k) and ((n+2)=l)) or (((m-3)=k) and ((n+3)=l)) or (((m-4)=k) and ((n+4)=l)) or (((m-5)=k) and ((n+5)=l)) or (((m-6)=k) and ((n+6)=l)) then second:=true else second:=false;
<span> end;</span></span>
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Program n1;
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.