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

Скотиняшка 17 июн. 2020 г., 04:54:29

1) Процедуры вызывается в строкеMinNumber(x, y, m) ; (17)

2) Функция вызывается в строкеn : = MaxNumber(x, y) ; (15)

3) Переменная St имеет типstring (строковый)

4) Переменная St описывается в строкеSt : string ; (3)

5) В переменную St вводится имя пользователя.

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.

Nastya2551 8 нояб. 2020 г., 03:34:06 | 10 - 11 классы

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?

Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i

var a : array [1.

5] of integer ;

i, min, max, x : integer ;

begin

for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;

max : = a[1] ;

min : = a[1] ;

for i : = i to 5 do begin

if a[i]> ; max then max : = a[i] ;

if a[i]< ; min then min : = a[i] ;

end ;

writeln('max = ', max) ;

writeln('min = ', min) ;

end.

Кувджулия 29 сент. 2020 г., 23:58:54 | 10 - 11 классы

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.

N] of integer ; var a : is ; begin .

End.

Romanmedynskii 28 дек. 2020 г., 19:30:34 | 10 - 11 классы

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.

40] of integer" var mas : array[1.

40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; 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.

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.

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.

Lenohka2001 1 окт. 2020 г., 20:22:59 | 10 - 11 классы

Помогите срочно?

Помогите срочно!

Написать программу сравнения пяти чисел(введенных на клавиатуре) и чтобы вывелось большее из них.

Пример : var a1, a2, a3, max : integer ;

begin write ('Введите три числа : ') ; readln (a1, a2, a3) ; if a1 > = a2 then max : = a1 else max : = a2 ; if a3 > max then max : = a3 ; writeln ('Максимальное из них : ', max) ;

end.

P. S только с 5 - ю переменными.

Zaika220681 25 нояб. 2020 г., 06:38:19 | 10 - 11 классы

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?

Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b> ; a then begin max : = c ; med : = b ; min : = a ; End ; if b> ; a> ; c then begin max : = b ; med : = a ; min : = c ; End ; if a> ; c> ; b then begin max : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.