Ваш друг предлагает вам переписать отснятый им видеофильм. из носителей информации у вас есть: компакт-диск объемом 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.

9строка будет содержать 2^10 - 1 = 1023 символа, на 1023 месте бедет стоять 9, на 1022 месте будет стоять 8, а на 1021 месте будет стоять 7. ответ. 7.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.