<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Натюрморт';
Println(s[6:8]+s[9]+s[7:9],s[9]+s[7:])
end.
<u>Результат</u>
мотор торт
Билл Гейтс- создатель компьютерных сетей.
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
основное - скорость и точность
а дальше уже зависит от возможностей программы
например просмотр промежуточных результатов
выставление точности расчетов
задание алгоритма расчета любой сложности
быстрый перерасчет при изменении начальных данных
динамическое изменение результатов в зависимости от исменения условий
Промежуток времени определяется как сумма
1. времени получения Васей первых 512 Кбайт по каналу со скоростью 2^17 бит/с
2. времени получения Петей всех данных (4 Мбайта) по каналу со скоростью 2^15 бит/с
При вычислениях необходимо привести все единицы измерения в одну систему (например, Кбайт и Мбайт в биты)
1. t1=512*1024*8/2^17=(2^9)*(2^10)*8/(2^17)=4*8=32 сек
2. t2=4*1024*1024*8/2^15=4*(2^10)*(2^10)*8/(2^15)=4*32*8=1024 сек
Ответ: 1024+32=1056 сек