Выбери правильную команду присваивания.

D=:8;
Ж=8;
Ж:=8;
D=8;
D:=8;

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

1)

var a, b: integer;

begin readln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) then writeln('сумма цифр ', a, ' больше') else writeln('сумма цифр ', b, ' больше'); end.

2)

var a: integer;

begin readln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

var a: integer;

begin readln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) then writeln('есть 2 одинаковые цифры') else writeln('нет 2-х одинаковых цифр'); end.

паровозы кажется могут толкать состав назад, ехать как задом так и передом и тп. иначе я не знаю.

первый поезд делится на (паровоз+10) и 11 вагонов.

и эту десятку паровоз тянет в тупичек.

второй поезд проезжает тупичек.

паровоз первого вытягивает свою десятку на свободный путь

второй паровоз толкает свой состав так чтоб стать перед тупичком

второй паровоз отцепляется и прицепляется к оставшимся 11 вагонам.

второй паровоз задом запихивает 11 вагонов в тупичек

второй паровоз берет свой состав и уезжает

первый паровоз забирает свои 11 вагонов

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж