Const l:array[1..26] of char = ('a','b','c','d','e','h','i','j','k','l','m','n','o','p','q','r','f','s','t','u','v','w','x','i','y','z');
Var
s:string;
j,i,k:integer;
a:array [1..100] of integer;
begin
readln(s);
k:=0;
For i:=1 to length(s) do
for j := 1 to 26 do
If s[i] = l[j] then
begin
a[j]:=a[j]+1;
end;
for i:=1 to 26 do begin
if a[i]<>0 then
writeln(l[i], ' = ', a[i]);
end;
<span>end.</span>
100₈ = 1*8² + 0*8¹ + 0*8⁰ = 64₁₀
1)program gt;
var x,y:real;
begin
readln(x);
if(x<0)then y:=x+1 else y:=2*x;
writeln(y);
end.
2)
program gt;
var A,B:real;
begin
if(A=B)then writeln('A=B')else
if(A>b)then writeln(a*a)else writeln(b*b);
end.
3)
program gt;
var a,b,c,s:real;
begin
readln(a,b,c);
if(a>=b)and(a>=c)then s:=b+c else
if(b>=a)and(b>=c)then s:=a+c esle
s:=a+b;
writeln(s);
end.
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.