Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Первая программа
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.