Скорость передачи данных по локальной сети запрашивается у пользователя и измеряется в битах в секунду. ученик качал игру т минут (время запрашивается у пользователя). рассчитайте и выведите на экран размер файла (в гбайтах), который скачал ученик и сколько денег придѐтся заплатить ему за трафик, если первый гбайт не оплачивается, а всѐ то, что сверху - по у рублей за гбайт (запрашивается у пользователя). нужно сделавть через pascal abc

KolbasaBatonSir KolbasaBatonSir    1   01.06.2019 03:10    18

Ответы
sirkoalbina sirkoalbina  01.10.2020 16:15
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика