1) песня весит 5, 7 мб. скорость загрузки 10 мб/сек. за какое время закачается песня? 2)фильм 2, 1 гб. скорость загрузки 5 мб/сек. за какое время закачается фильм? 3)фильм 7 гб. избыточность кода 30%. скорость 15 мбит/с. за какое время закачается фильм?

1) за 0.57 секунды 5.7 мб \ 10 мб = 0.57. 2) 1гб=1024мб. 2.1 гб \ 5мб= 2.1*1024 мб\5мб ~430 секунд ~7,1 минут 3) не знаю : (

Program figna ; {это название} var a,b,c,d:   integer;   {объявление переменных a,b,c и говорим что они целые} begin  {начало}   writeln('введите три числа');   {запрос чисел} readln(a,b,c);   {ввод чисел} d: =a*b*c;   {умножаем числа и присваиваем d их значение}  if (d< 50) then  {если произведение чисел меньше 50 то}   a: =a*10;   {первое число умножаем на десять}   b: =b*10;   {второе число умножаем на десять}   c: =c*10;   {третье число умножаем на десять} writeln(a); {выводим первое} writeln(b);   {выводим второе} writeln(c);   {выводим третье} else  {иначе} writeln(d);   {выводим произведение} end.  {конец} p.s. этот символ {  } паскаль не читает и означает он коментарий 

Const q1 = -500; const q2 = 600; var kr7,kr3, z: integer; k, h : integer; beginh : = q1; while h < q2 dobeginkr7 : = h mod 7; if (h > 0) and (kr7 = 0) then  begink : = k +1; writeln('число кратных ', h); end; h : = h +1; end; writeln('число кратных положительных ', k); h : = q1; k: =0; while h < q2 dobeginif (h < 0)   then  beginz: = z + h; kr3 : = z mod 3; if (kr3 = 0)   then  begink : = k +1; writeln('число кратных ', z); end; end; h : = h +1; end; writeln('число кратных 3 отрицательных ', k); end.