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 ; Для каждой из проц?

0354 17 сент. 2020 г., 19:17:29

Все параметры - переменные имеют описатели var.

В P это y, в Q - y, в R их нет.

Итого их 2.

Ответ : 2.

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.

Йчуметнлщдшщгапм5689 22 авг. 2020 г., 00:02:41 | 5 - 9 классы

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : END?

Найдите значение переменной А после выполнения программы VAR A : INTEGER BEGIN A : = SQRT(16) : 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 ;

Cyrusmilay 17 июн. 2020 г., 04:54:27 | 5 - 9 классы

Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?

Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?

Укажите номер строки 2) В какой строке вызывается функция?

Укажите номер строки 3) Укажите тип данных переменной St?

4) В какой строке описывается переменная St?

Укажите номер строки 5) Назначение переменной St?

Program ZZ1 ; var x, y, m, n : integer ; St : string ; function MaxNumber(a, b : integer) : integer ; var max : integer ; begin if a> ; b then max : = a else max : = b ; MaxNumber : = max ; end ; procedure MinNumber(c, d : integer ; var min : integer) ; begin if c end ; begin write('Введите свое имя') ; readln(St) ; write('Введите x, y ') ; readln(x, y) ; n : = MaxNumber(x, y) ; writeln('Максимум = ', n) ; MinNumber(x, y, m) ; writeln('Минимум = ', m) ; writeln('Данную программу запустил : ', St) ; end.

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

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

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) ; что то неправильно говорят массив.

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

Pletnyovigor 21 июн. 2020 г., 07:27:06 | 10 - 11 классы

1. Какие из следующих заголовков подпрограмм верны?

1. Какие из следующих заголовков подпрограмм верны?

Ответ обоснуйте.

A) Procedure P1(x, z : Real) : Integer ; b) Function F1 (a, b, c : Real) : char ; c) Function F2 ( m : integer) ; d) Procedure P2 (var n : integer ; m : integer) ;