Var A:
integer;
begin
writeln('введите двузначное число');
readln(A);
writeln ((A div 10)*100+(A mod 10));
writeln (A*10);
writeln ((A mod 10)*100+(A div 10));
writeln (((A mod 10)*10+(A div 10))*10);
<span>end.</span>
Если расчёт с идеальными условиями (т.е. которых не бывает)
За первый час со скоростью 40 КБит/с он скачает
КБит + ещё за следующие 3 часа
Кбит = 792000КБит
За 4 часа ответ В).
P.S. Факторы влияющие на работу линии бесчисленное множество(Потеря пакетов, избыточная информация в пакета, стабильность соединения и т.п.). Так что в идеале так и будет, но к счастью мир не идеален, в чём его и прелесть)))
<span>var N, x, y, i: integer; </span><span>
begin
write(' N = ');
readln(N); </span>
<span>for i:=1 to N do </span>
<span>begin
writeln ('x='); </span>readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
<span>
end.</span>