Question

Помогите составить программы
Введите несколько чисел. Найдите произведение чисел меньших 7.
Введите несколько чисел. Найдите количество двузначных чисел.
Введите несколько чисел. Определить каких чисел меньше - больше 10 или меньше 10
Введите несколько чисел. Вывести числа от 12 до 40 кратные 7.

Answer 1

Первая программа
var
  n, i, x, s : integer;
  t : boolean;
begin
  writeln('количество чисел');
  readln(n);
  s := 1;
  t := false;
  for i := 1 to n do
    begin
      writeln(i,' число');
      readln(x);
      if x < 7 then
        begin
          t := true;
          s := s*x;
        end;
    end;
  if t then
    writeln('Ответ ',s)
  else
    writeln('Ответ ',0);
end.

Вторая
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x >= 10) and (x < 99) then
        s := s + 1;
    end;
  writeln('Otvet: ',s);
end.

Третья
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if x > 10 then
        s := s + 1
      else if x < 10 then
        s := s - 1;
    end;
  if s > 0 then 
    writeln('chisel >10 bolche')
  else if s < 0 then
    writeln('chisel <10 bolche')
  else    writeln('chisel porovnu');
end.

Четвёртая
var
  n, i, x : integer;
  st : string;
begin
  writeln('kolichestvo chisel');
  readln(n);
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x > 12)  and (x < 40) and (x mod 7 = 0) then
        st := st + IntToStr(x) + ' ';
    end;
    writeln('otvet: ',st);
end.

Answer 2

Спасибо!