Регистрация
настена26258
18.05.2023 02:34
Информатика
Есть ответ 👍

Сделать аттестацию прошу по информатике

262
361
Посмотреть ответы 1

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

Aknura150702
Aknura150702
4,6(6 оценок)
Procedure chisla(n : integer); var    a : integer; begin      if (n < 1) then  writeln        else      begin          read(a);         if (abs(a) < 1000) then        begin            chisla(n-1);             write(a,' ');           end        else              chisla(n);       end; end;   function readn() : integer; var    n : integer; begin    write('n=');     readln(n);     if not(n in [0..1000]) then        n : = readn();     readn : = n; end;   var    n : integer;   begin    n : = readn();     writeln('введите ', n, ' целых чисел через пробел и нажмите enter');       chisla(n); end.

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