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
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «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: ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer) ; begin a:=sqr (a) ; b:=sqr (a) + a; end; procedure p2 (a, b:integer) ; begin a:=sqr (a) ; b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y) ;
Ответы (1)
Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?
Ответы (2)
Помогите найти ошибку в программе, при запуске на строке "vyvod (arr) ; " выдает ошибку: "Ожидалось выражение". Не пойму в чем проблема. uses crt; type arr=array [1 ...
Ответы (1)
Здесь пишет что НОД=0, что не так const m: array [1 ... 4] of integer = (76, 126, 216, 252) ; var i, x, y, z: integer; procedure nod (a, b: integer; var c: integer) ; begin while ab do if a>b then a:=a-b else b:=b-a; c:=a end; begin x:=m[1];
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа