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

1)С клавиатуры вводится последовательность целых чисел. Признак окончания ввода
– число 0. Найти среднее арифметическое чисел, больших 12
2)Дано натуральное число. Найти произведение его цифр, не больших 4. с использованием циклов с условиями (while или repeat).

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

Program Project1;

var m:array of integer; n, i, summ:integer;

begin
  repeat
    write(n: ); readln(n);
    SetLength(m, Length(m)+1);
    m[Length(m)-1]:=n;
  until n=0;
  SetLength(m, Length(m)-1);

  n:=0; summ:=0;
  for i:=0 to Length(m)-1 do begin
    if m[i]>12 then begin
      inc(n);
      inc(summ, m[i]);
    end;
  end;

  Writeln(Result:=, summ/n);

  readln;
end.

2) ---------------------------------------------------------------------------------------

program Project1;

var n, t, res: integer;

begin
  write(N:=);readln(n);
  res:=1;
  while n>0 do begin
    t:=(n mod 10);
    if t<4 then res:=res*t;
    n:=n div 10;
  end;

  writeln(Result:=, res);

  readln;
end.