Скорость передачи данных по локальной сети запрашивается у пользователя и измеряется в битах в секунду. Ученик качал игру Т минут (время запрашивается у пользователя). Рассчитайте и выведите на экран размер файла (в Гбайтах), к...
Скорость передачи данных по локальной сети запрашивается у пользователя и
измеряется в битах в секунду. Ученик качал игру Т минут (время запрашивается у
пользователя). Рассчитайте и выведите на экран размер файла (в Гбайтах), который
скачал ученик и сколько денег придѐтся заплатить ему за трафик, если первый Гбайт
не оплачивается, а всѐ то, что сверху - по у рублей за Гбайт (запрашивается у
пользователя). ЗАДАЧУ НУЖНО СДЕЛАВТЬ ЧЕРЕЗ PASCAL ABC
Гость
Ответ(ы) на вопрос:
Гостьprogram z;
var t,u:integer; s,tr:real;
begin
writeln('Введите скорость'); read(u);
writeln('Введите время'); read(t);
writeln('Введите трафик'); read(tr);
s:=(u*t)/8388608;
if s>1 then tr:=s/tr;
writeln('Размер файла = ',s, ' Гб');
writeln('Оплата = ',tr, ' руб');
end.
Не нашли ответ?
Похожие вопросы