М. Э.Абрамян Решебник

{Даны два целых числа: A, B. Проверить истинность высказывания:
«Справедливы неравенства A >= 0 или B < -2».}
Program Boolean5;
Var
  A,B:Real;
Begin
  ReadLn(A,B);
  If (A >= 0) Or (B < -2) Then
    WriteLn('TRUE')
  Else
    WriteLn('FALSE');
  ReadLn;
End.{Solution Sklyarov Sergej a.k.a. S9 15.07.2011}

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{Даны два целых числа: A, B. Проверить истинность высказывания:
«Справедливы неравенства A >= 0 или B < -2».}
{Solution by lamed 15.07.2011}
Program Boolean5;
Var
  A,B:Real;
Begin
  ReadLn(A,B);
  WriteLn((A >= 0) Or (B < -2));
  ReadLn;
End.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Recur13. Описать рекурсивную функцию Palindrom(S) логического типа, 
возвращающую True, если строка S является палиндромом (то есть читается одинаково 
слева направо и справа налево), и False в противном случае. 
Оператор цикла в теле функции не использовать. 
Вывести значения функции Palindrom для пяти данных строк. }
{ Solution by lamed 16.07.2011}
function Palindrom(S: string):boolean;
var
  len: integer;
begin
  len := length(s);
  Palindrom := (len<=1) or (s[1]=s[len]) and Palindrom(copy(s,2,len1-2));
end;
 
var
  i: integer;
  s: string;
begin
  for i:= 1 to 5 do
    begin
      readln(s);
      writeln(Palindrom(s));
    end;
  readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Recur12. Описать рекурсивную функцию DigitCount(S) целого типа, которая находит 
количество цифр в строке S, не используя оператор цикла. С помощью этой функции 
найти количество цифр в каждой из пяти данных строк. }
{ Solution by lamed 16.07.2011}
function DigitCount(S: string):integer;
begin
  if s='' then 
    DigitCount := 0
  else
    DigitCount := ord(s[1] in ['0'..'9'] ) + DigitCount(Copy(s,2,length(s)-1));
end;
 
var
  i: integer;
  s: string;
begin
  for i:= 1 to 5 do
    begin
      readln(s);
      writeln(DigitCount(s));
    end;
  readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Recur14. Вывести значение целочисленного выражения, заданного в виде строки S. 
Выражение определяется следующим образом:
<выражение> ::= <цифра> | <выражение> + <цифра> | <выражение> – <цифра> }
{ Solution by lamed 17.07.2011}
function CalcS(s: string): integer;
var
  sign: char;
  len: integer;
  n: integer;
begin
  len := length(s);
  n:= ord(s[len])-ord('0');
  if len=1 then
    CalcS := n
  else
    begin
      sign := s[len-1];
      if sign='+' then
        CalcS := CalcS(copy(s,1,len-2))+n
      else
        CalcS := CalcS(copy(s,1,len-2))-n;
    end;
end;
 
var
  s: string;
begin
  readln(s);
  writeln(CalcS(s));
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Proc16. Описать функцию Sign(X) целого типа, возвращающую для вещественного числа X 
следующие значения: –1, если X < 0; 0, если X = 0; 1, если X > 0.
С помощью этой функции найти значение выражения Sign(A) + Sign(B) для данных 
вещественных чисел A и B} 
{ Solution by lamed 17.07.2011}
function sign(const x:real):integer;
begin
  if (x<0) then
    sign:=-1
  else if (x=0) then
    sign:=0
  else 
    sign:=1;
end;
 
var 
  a,b:real;
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  
  writeln(sign(a)+sign(b));
  readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{Proc18. Описать функцию CircleS(R) вещественного типа, находящую площадь круга радиуса 
R (R — вещественное). С помощью этой функции найти площади трех кругов с данными 
радиусами. Площадь круга радиуса R вычисляется по формуле S = π·R2} 
{ Solution by lamed 17.07.2011}
 
function CircleS(r:real):real;
begin
 CircleS:=pi*r*r;
end;
 
var
 r: real;
 i: integer;
begin
  for i:= 1 to 3 do
    begin
      writeln('Введите радиус R',i,':');
      readln(r);
      Write('S=', CircleS(r):0:3,'   ');
    end;
  readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{MinMax4. Дано целое число N и набор из N чисел. Найти номер минимального 
элемента из данного набора}
{ Solution by lamed 17.07.2011}
var
  i,n:integer;
  d,Min:integer;
  imin : integer;
begin
  write('Количество чисел ');
  readln(n);
  Min:=MaxInt;
  imin := 0;
  for i:= 1 to n do
    begin
      readln(d);
      if d<Min then 
        begin
          Min:=d;
          imin := i;
        end;
     end;
  writeln('номер минимального элемента n=',iMin);
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ String26. Дано целое число N (> 0) и строка S. Преобразовать строку S в строку
длины N следующим образом: если длина строки S больше N, то отбросить первые
символы, если длина строки S меньше N, то в ее начало добавить символы «.» }
{ Solution by lamed 17.07.2011 }
var
  n,i: integer;
  s,s1: string;
  len: integer;
begin
  readln(n,s);
  len := length(s);
  if len>n then
     delete(s,1,len-n)
  else if len<n then
    begin
      s1:='';
      for i:=1 to n-len do
        s1:=s1+'.';
     insert(s1,s,1);
    end;
  writeln(s);
  readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ String24. Дана строка, изображающая двоичную запись целого положительного
числа. Вывести строку, изображающую десятичную запись этого же числа. }
{ Solution by lamed 17.07.2011 }
var
  decim , i: integer;
  s1, s: string;
begin
  readln(s);
  decim:= 0;
  for i:=1 to length(s) do
    decim := decim*2 + (ord(s[i])-ord('0'));
  writeln('decim=', decim);
 
  s1:='';
  while decim > 0 do
    begin
      s1:= chr(decim mod 10+ord('0'))+s1;
      decim := decim div 10;
    end;
  writeln('s1=', s1);
end.

{ Solution by lamed 17.07.2011 }
{ Array1. Дано целое число N (> 0). Сформировать и вывести целочисленный массив
размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … .}
{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
 
const 
  MaxN=10;
var
    i, n:integer;
    a: array [1..MaxN] of integer;
begin
    readln(n);
    for i:=1 to n do
       a[i]:=2*i-1;
    for i:=1 to n do
       write(a[i]:2);
    writeln;
    readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{Array5. Дано целое число N (> 2). Сформировать и вывести целочисленный массив
размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK:
F[1] = 1, F[2] = 1, F[K] = F[K–2] + F[K–1], K = 3, 4, … .}
{ Solution by lamed 17.07.2011 }
 
const 
    MaxN = 10;
var
    k,n:integer;
    f: array [1..MaxN] of integer;
begin
    readln(n);
    f[1]:=1;
    f[2]:=1;
    for k:=3 to n do
       f[k]:=f[k-2]+f[k-1];
    for k:=1 to n do
       write(f[k]:3);
    writeln;
    readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Array7. Дан массив размера N. Вывести его элементы в обратном порядке. }
{ Solution by lamed 17.07.2011 }
const n = 10;
var
    k:integer;
    f: array [1..n] of integer;
begin
    for k:=1 to n do
       readln(f[k]);
    for k:=n downto 1 do
       write(f[k]:3);
    writeln;
    readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Array11. Дан массив A размера N и целое число K(1<=k<=N).Вывести элементы
массива с порядковыми номерами, кратными K: AK, A2·K, A3·K, … .
Условный оператор не использовать.}
{ Solution by lamed 17.07.2011 }
 
const 
    n = 10;
var
    i,k:integer;
    f: array [1..n] of integer;
begin
    readln(k);
    for i:=1 to n do
       readln(f[i]);
       
    for i:=1 to (n div k) do
       write(f[i*k]:3);
    writeln;
    readln;
end.

{ М. Э. Абрамян. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. }
{ Array13. Дан массив A размера N (N — нечетное число). Вывести его элементы
с нечетными номерами в порядке убывания номеров: AN, AN–2, AN–4, …, A1.
Условный оператор не использовать. }
{ Solution by lamed 17.07.2011 }
 
const n = 9;
var
    i:integer;
    a: array [1..n] of integer;
begin
    for i:=1 to n do
       readln(a[i]);
       
    i:=n;
    while (i>=1) do
       begin
          write(a[i]:3);
          dec(i,2);
       end;
    writeln;
    readln;
end.

{ Описать рекурсивную функцию MaxElem(A, N) целого типа, которая находит 
  максимальный элемент целочисленного массива A размера N (1 <= N <= 10), 
  не используя оператор цикла. С помощью этой функции найти максимальные 
  элементы массивов A, B, C размера NA, NB, NC соответственно.
}
Program Recur11;
Type
  Mas = Array [1..10] of Integer;
Var
  A: Mas;
  N,i: Integer;
function MaxElem(A:Mas; N:Integer):Integer;
 var
   i: Integer;
 begin
   if N=1 then MaxElem:=A[1]    { Храним максимальный элемент в начале массива }
   else begin
     if A[N]>A[1] then begin
       i:=A[N];
       A[N]:=A[1];
       A[1]:=i;
     end;
     MaxElem:=MaxElem(A,N-1)
   end;
 end;
 
Begin
  Write('N='); Readln(N);
  for i:=1 to N do begin
    Write('A[',i,']='); Readln(A[i]);
  end;
  Writeln(MaxElem(A,N));
End.
{ Solution by Al50. }