1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
Дискета? или бумага. но бумага вроде больше подходит, потому что дискета появилась лишь в 1970-1990 году
1. Одноранговая локальная сеть, где все компьютеры объединены в локальную сеть и равноправны (имеют одинаковые права)
2. Локальная сеть с выделенным сервером - где так же компьютеры объединены в локальную сеть, но один компьютер является главным среди всех и более мощный и производительный.
3. посмотри в классе как соединены компьютеры и сделаешь вывод - в основном там бывае первый случай (одноранговая сеть с топологией звезда), а функции просты - можно пользоваться общими локальными папками и т. п.
4. тоже поспрашивай, кто у вас является поставщиком сетевых услуг (интернета). В школе сеть в классе делает или инженер школы (сис. админ.) или учитель информатики
Var
a,b:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do a[i]:=random(15)+1;
b[1]:=a[7];
for i:=2 to 7 do b[i]:=a[i-1];
for i:=1 to 7 do writeln(a[i]:4,b[i]:4);
<span>end. </span>
var a:integer;
begin
readln (a);
if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')
else writeln ('Сумма цифр числа не кратна 6');
if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')
else writeln ('Цифра десятков числа меньше цифры единиц числа');
if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')
else writeln ('Число не оканчивается цифрой 6')
end.
