Ваш друг предлагает вам переписать отснятый им видеофильм. из носителей информации у вас есть: компакт-диск объемом 650 мб, дискета объемом 1мб и флеш-накопитель объемом 1000мб. напишите программу, перечисляющую все носители, на которые полностью поместится фильм. объем видеофайла задается в мегабайтах.

Var d: integer; const a=650; b=1; c=1000; begin write('введите объём видеофайла в мегабайтах: '); readln(d); if d> a then write('видеофайл не помещается на   носитель информации"а"! ',#10) else writeln('памяти хватает для записи на носитель "а"! ',#10); if d> b then write('видеофайл не помещается на   носитель информации"b"! ',#10) else writeln('памяти хватает для записи на носитель "b"! ',#10); if d> c then write('видеофайл не помещается на данный носитель информации"с"! ',#10) else writeln('памяти хватает для записи на носитель "c"! ',#10); readln; end.

Код на ruby microbs = 3 max = 102 steps = 1 steps2 = 0 steps4 = 0 while microbs < max       microbs +=(4 - 1)       steps+=1       steps4+=1       for i in 1..6             microbs +=(2 - 1)             steps+=1             steps2+=1       end end p [microbs, steps, steps2, steps4] вывод [102, 78, 66, 11] т.е. всего 78 делений, из них 11 на 4

Средний экзаменов может быть найден, как сумма , набранных каждым студентом, деленная на количество студентов. где b(i) - , набранные i-m студентом (i=1,2, n) cдача экзаменов производилась тремя группами. для каждой i-й группы известна её численность и средний тогда окончательно получаем текст программы на входном языке системы pascalabc.net: const   m1=4.33;   m2=4.25;   m3=3.98;   n1=13;   n2=5;   n3=7; begin   writeln((m1*n1+m2*n2+m3*n3)/(n1+n2+n3): 4: 2) end. результат выполнения программы: 4.22