Question

Помогите написать программы в паскале)))

Answer 1

1) var
  n, i: longint;

begin
  readln(n);
  for i := 1 to n do
    write('+ ');
end.

2) var
  n, i: longint;
  sum: real;

begin
  readln(n);
  sum := 0;
  for i := 1 to n do
    sum := sum + 1/i;
  writeln('Сумма ряда - ' + sum);
end.

3) var
  n, kolvo, n2: longint;
  a, m: byte;

begin
  readln(n, m);
  n2 := n;
  kolvo := 0;
  while (n2 <> 0) do begin
    a := n2 mod 10;
    n2 := n2 div 10;
    if (a = m) then
      inc(kolvo);
  end;
  if (kolvo = 0) then
    writeln('В числе N не содержится цифра M')
  else
    writeln(kolvo);
end.

4) var
  n: string;
  i: longint;

begin
  readln(n);
  for i := length(n) downto 1 do
    write(n[i]);
end.