ПОЖАЛУЙСТА!!!ИНФОРМАТИКА задание 1
Что будет выведено на экран после выполнения данной программы:
Program Primer;
var c1,c2: integer;
function Apb(a,b: integer): integer;
begin
Apb := a + b;
end;
begin
c1 := 10;
c2 := 20;
write(Apb(c1,c2)*Apb(c1,c2));
end.
задание 2
Что будет выведено на экран после выполнения данной программы:
Program Primer;
var i: integer;
procedure Star;
begin
write('++');
end;
begin
for i:=2 to 5 do
Star;
end.
++
++++
++++++++
++++++++++
задание 3
Заголовок процедуры вычисления наибольшего общего делителя может быть описан так:
procedure nod (a,b:integer; var c:integer);
Вариант вызова процедуры:
nod (x,b ,z)
в качестве параметров-значений использованы имена переменных
в качестве параметров-значений использованы константы
в качестве параметров-значений использованы выражения
Что будет выведено на экран после выполнения данной программы:
Program Primer;
var c1,c2: integer;
function Apb(a,b: integer): integer;
begin
Apb := a + b;
end;
begin
c1 := 10;
c2 := 20;
write(Apb(c1,c2)*Apb(c1,c2));
end.
задание 2
Что будет выведено на экран после выполнения данной программы:
Program Primer;
var i: integer;
procedure Star;
begin
write('++');
end;
begin
for i:=2 to 5 do
Star;
end.
++
++++
++++++++
++++++++++
задание 3
Заголовок процедуры вычисления наибольшего общего делителя может быть описан так:
procedure nod (a,b:integer; var c:integer);
Вариант вызова процедуры:
nod (x,b ,z)
в качестве параметров-значений использованы имена переменных
в качестве параметров-значений использованы константы
в качестве параметров-значений использованы выражения
More Questions From This User See All