Регистрация
micha197979
28.05.2021 07:54
Информатика
Есть ответ 👍

Запишите подряд без пробелов и разделителей последние пять чисел, которые будут напечатаны на экране при выполнении вызова f(2). числа должны быть записаны в том порядке, в котором они выводятся на экран.procedure f(n: integer); begin if n < 5 then begin f(n + 2); write(n); f(n + 3); end; write(n); end;

223
331
Посмотреть ответы 1

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

antonnetyaga
antonnetyaga
4,6(80 оценок)

var a: array[1..50] of integer;

i: integer;   z: real;

begin

      for i: =1 to random(30) do

      begin

          a[i]: =i*6;

          z: =z+a[i];

          write(a[i],' ');

      end;

      writeln;

      write('среднее арифметическое элементов массива=',z/50);

end.

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