После выполнения команды один раз чертёжник сместился на (4;1), после повторного выполнения команды (8;2), т.е. увеличиваем наши координаты в два раза, далее по условию следует сместиться на 4;-6), после этого смещения чертёжник сместился уже на (12;-4), т.е. Прибавляем к данным координатам 4;-6 соответственно - (8+4;2+(-6))=(12;-4). ЧТОБЫ ВЕРНУТЬСЯ В ИСХОДНОЕ ПОЛОЖЕНИЕ следует сместиться как бы в "обратную сторону", т.е. Взять получившиеся координаты с противоположным знаком - (-12;4)=> ОТВЕТ:3
1) Переводим МБ в байты = (1.5*1024)*1024*8 = 12582912 бит Формула вычисления объема: I = v *t. Следовательно, t = I / t, тогда t = 12582912 / 128000 = 98,304 секунд.
2) Исходя из формулы приведенной в задаче свыше(I= v*t), следует то, что I = 524288 * (4*60) = 125829120 бит. Переведем биты в мегабайты: (125829120/8) / 1024 / 1024 = 15 МБ.
3) Нам уже известна формула, так будем действовать! Для начала найдем вес передаваемого файла в битах : 80 * 128 * 8 = 81920 бит. Находим время: 81920 / 30720 = ~2,6 секунд.
Program nd;
var n, n1, d, d1: Integer;
b: Boolean;
begin
write('Введите число n; n>9: ');
readln(n);
b:= false;
while (n>9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1>0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Объяснение: