Ответ:
в двоичную систему перевел, но вопрос: написанные числа в какой системе? Вы даёте как минимум в 4ой
Диск 1. К видеофильму объемом 600 Мб можно дописать 650-600=50 Мб музыки. Это 50/3.5≈14 композиций.
Диск 2. К видеофильму объемом 550 Мб можно дописать 650-550=100 Мб музыки. Это 100/3.5≈28 композиций.
Диск 3. К видеофильму объемом 400 Мб можно дописать еще 650-400=250 Мб данных. Из 100 композиций останется переписать 100-(14+28)=58 композиций. Их объем составит 58х3.5=203 Мб. 250-203=47 Мб останутся свободными.
A b c s
3 5 3 3
7 10 2 5
15 4 18 23
1 1 -1 22
6 0 12 34
0 10 30 64
21 8 18 82
7 14 14 96
8 2 10 106 - конец цикла
0 9 27 133
15 4 18 18
5 16 28 46
-4 6 34 80
1 -1 5 85
17 5 19 104 -конец цикла
0 6 18 122
9 1 15 137
-4 5 31 168
6 10 6 174
21 42 42 216
1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.