1минута работы за компьютером в салоне стоит 1 рубль.какую сумму необходимо заплатить за использование компьютера на время передачи объема 864 мбайт ,если скорость модема составляет 56 мбит/сек
864 * 8 = 3456 Мбит 3456 / 56 = ~ 61,71 сек. То есть чуть больше минуты. Заплатить придется 2 рубля.
НО, если задание попутано и скорость соединения не Мбит, а Кбит, то 864 * 1024 * 8 = 7077888 Кбит 7077888 / 56 = ~ 126391 сек. 126391 / 60 = ~ 2107 минут Заплатить придется 2107 рублей.
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
864 * 8 = 3456 Мбит
3456 / 56 = ~ 61,71 сек.
То есть чуть больше минуты.
Заплатить придется 2 рубля.
НО, если задание попутано и скорость соединения не Мбит, а Кбит, то
864 * 1024 * 8 = 7077888 Кбит
7077888 / 56 = ~ 126391 сек.
126391 / 60 = ~ 2107 минут
Заплатить придется 2107 рублей.