запусти несколько бесконечных циклов, и комп 100% висанет
Const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=Random(-10,10);
write(a[i],' ');
end;
writeln();
i:=1;
while(i<n) do begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
i+=2;
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
В школе учатся четыре талантливых мальчика: Иванов, Петров, Сидоров и Андреев. Один
из них - будущий музыкант, другой преуспел в бальных танцах, третий - солист хора
мальчиков, четвертый подает надежды как художник.
О них известно следующее:
1. Иванов и Сидоров присутствовали в зале консерватории, когда там солировал в
хоре мальчиков певец.
2. Петров и музыкант вместе позировали художнику.
3. Музыкант раньше дружил с Андреевым, а теперь хочет познакомиться с
Ивановым.
4. Иванов не знаком с Сидоровым, так как они учатся в разных классах и в разные
смены.
Кто чем увлекается?
Ответ:
Длина между пунктами А и F 9.