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)?

Arailim94 8 апр. 2020 г., 04:06:37

На экран будет выведено :

3

1

1

4

2

2

5

Расчет - в прилагаемом файле.

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.

Banannn1 8 апр. 2020 г., 05:35:38 | 5 - 9 классы

Помогите пожалуйста?

Помогите пожалуйста.

Запишите число, которое будет напечатано в результате выполнения программы : var s, n : integer ; begin s : = 33 ; n : = 1 ; while s> ; 0 do begin s : = s - 7 ; n : = n * 3 end ; writeln(n) end.

Zhannna112 12 сент. 2020 г., 21:28:35 | 10 - 11 классы

Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?

Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?

Var a, b : integer ; begin read(a, b, a) ; writeln(b, a, b, a) 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)?

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', а ожидалось оператор" Вопрос : в чем ошибка?

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Schevvaleria 3 окт. 2020 г., 20:32:02 | 10 - 11 классы

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 " * " Правильно ли?

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 " * " Правильно ли?

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).