Var chisl:array[1..4]of integer;
i,min:integer;
begin
for i:=1 to 4 do begin
Write(i,'-чисдо='); Readln(chisl[i]);
end;
min:=chisl[1];
for i:=1 to 4 do begin
if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.
Неееееееееееееееееееееееееееееееееееезнаааааааааааааааааююююююююю
Буду обозначать команду "умножение на 2" буквой m, "стереть последнюю цифру" буквой c.
а) 361 -> 722 -> 72 -> 7 (mcc)
361 -> 36 -> 72 -> 7 (cmc)
б) 457 -> 45 -> 90 -> 9 -> 18 -> 36 -> 72 -> 7 -> 14 (cmcmmmcm)
457 -> 914 -> 1828 -> 3656 -> 7312 -> 14624 -> 1462 -> 146 -> 14 (mmmmmccc)
Без пояснений если, то 26 секунд:)
Если подробнее, то 2048кб это 2мб, значит скорость 2мб/сек.
1048кб это 1мб, значит скорость 1мб/сек.
512кб это 0.5мб, значит скорость пол-мегабита в сек.
Итого, 1 файл передастся за 24 секунды, второй за 26 секунд и третий за 25 секунд. Всего потратиться минимум 26 секунд.
Ночь - дочь - дичь - динь - день