EGE #11 procedure F(n : integer) ; begin if n > ; 0 then G(n - 1) ; end ; procedure G(n : integer) ; begin writeln(' * ') ; if n > ; 1 then F(n - 3) ; end ; На выходе у меня 1 " * " Правильно ли?

Vevbz 3 окт. 2020 г., 20:32:08

По данной программе выяснить ответ не представляется возможным потому, что в программе отсутствует описание основной процедуры (точки входа).

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

TasyaSnow 22 дек. 2020 г., 12:59:22 | 5 - 9 классы

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ?

Укажите результат выполнения программы var a, b : integer procedure proc(var a : integer ; b : integer) begin b : = 4 ; a : = 6 ; b : = a + b ; end ; begin a : = 2 ; b : = 3 ; proc(a, b) ; writeln(a, ' ', b) ; end.

Wertuoojv 25 окт. 2020 г., 20:15:33 | 10 - 11 классы

Помогите найти сколько звездочек будет в результате вызова F(5) пожалуйста, а то я запуталась совсемprocedure F (n : integer) ; beginif n> ; 1 thenbeginF(n div 2) ; F(n - 1)end ;write (' * ')end ?

Помогите найти сколько звездочек будет в результате вызова F(5) пожалуйста, а то я запуталась совсем

procedure F (n : integer) ; begin

if n> ; 1 then

begin

F(n div 2) ; F(n - 1)

end ;

write (' * ')

end ;

Motar 24 июл. 2020 г., 02:04:40 | 10 - 11 классы

Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(' * ') ; if n > ; 0 then begin F(n - 3) ; F(n - 2) ; F(n div 2) ; F(n div 2) ; end end ; Сколько символов "звездочка" будет напеча?

Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(' * ') ; if n > ; 0 then begin F(n - 3) ; F(n - 2) ; F(n div 2) ; F(n div 2) ; end end ; Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F(6)?

Dinifest 8 апр. 2020 г., 04:06:32 | 10 - 11 классы

Procedure F(n : integer) ; begin if n> ; 0 then begin f(n - 1) ; F(n - 3) ; writeln(n) ; end ; writeln (n + 3) ; end ; Что напечатает программа при F(2)?

Procedure F(n : integer) ; begin if n> ; 0 then begin f(n - 1) ; F(n - 3) ; writeln(n) ; end ; writeln (n + 3) ; end ; Что напечатает программа при F(2)?

Как решить подробно?

852741963987 17 сент. 2020 г., 19:17:23 | 10 - 11 классы

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из проц?

Procedure P(x ; var y : integer) ; begin y : = x + 1 end ; procedure Q(x : integer ; var y : integer) ; begin y : = x + 1 end ; procedure R(x, y : integer) ; begin y : = x + 1 end ; Для каждой из процедур определите, какие из ее параметров являются параметрами - переменными.

В ответ введите суммарное количество параметров - переменных для этих трех процедур.

Пример ввода ответа : 3.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

DariaWillson 30 окт. 2020 г., 12:38:50 | 10 - 11 классы

Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(n) ; if n > ; 1 then begin writeln(n) ; F(n - 2) ; F(n - 5) end end ; Найдите сумму чисел, которые будут выведены при вызове F(9)?

Дан рекурсивный алгоритм : procedure F(n : integer) ; begin writeln(n) ; if n > ; 1 then begin writeln(n) ; F(n - 2) ; F(n - 5) end end ; Найдите сумму чисел, которые будут выведены при вызове F(9).