I=16*100*80*2000+(80*5)мб
1)16*100=1600 бита
2)1600*80=128000 бит
3)128000*2000=256000000бит=30,5 Мб
I=80*5+30,5=430,5Мб
Ответ:Да, рукопись поместиться на флешке, обьем рукописи равен 430,5 Мб
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.