Регистрация
2990302743
10.07.2021 18:52
Информатика
Есть ответ 👍

.. идет тест нужно прямо сейчас​

292
375
Посмотреть ответы 1

Ответы на вопрос:

kostromitind
kostromitind
4,7(4 оценок)
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.

Популярно: Информатика