1)Олег скопировал рисунок, Игорь скопировал текстовый файл, а Юля- аудиофайл.
2) на букву В.
Const
N = 33;
Var
A:array[1..N] of real;
i,k:integer;
Begin
Randomize;
k:=0;
For i:= 1 to N do
Begin
if random(2) = 1 then A[i]:=random*N
else A[i]:=0;
Write(A[i]:0:3,' ');
if A[i] = 0 then k:=k+1
End;
WriteLn;
WriteLn('Количество нулей в массиве: ',k);
ReadLn
End.
6.3)
7. 1)
8.-
9. 1)
10. 1)
Графическое изображение иерархической файловой структуры называется деревом.
Составить программу, которая меняет местами значения переменных a и b, введенных с клавиатуры, без использования дополнительных переменных
вот прога которую я нашёл в инете и разбирал не понимаю одного как она вычисляет по формулам
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
объясните плиз если например a= 23, b=45
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b:real;
procedure change(var a,b:real);
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
begin
writeln(' Г*,ГЎ');
readln(a,b);
writeln('a=',a);
writeln ('b=',b);
change(a,b);
writeln('a=',a);
writeln ('b=',b);
readln;
end.