Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.
1 килобайт = 8 килобитам
57*8=456 килобит
456/16=28.5 сек
Ответ: 28.5
2) 2 мин 15 сек = (2*60 +15)сек = 135 сек
Короче, берешь число в восьмеричной системе счисления, например, - 125
потом пишешь над каждым разрядом цифры справа на лево, потом выносишь число из разряда и умножаешь на 8 в степени номера этого числа
Var n:integer;
Begin
Write('n = ');ReadLn(n);
Write('Гвоздей осталось ',(n*0.6*0.25):0:0,' шт.');
End.
Мышь
Принтер
USB
Колонки
Антивирус
Память
Флешка
Wi-Fi
Монитор
Веб камера
Браузер