Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
===== PascalABC.NET =====
begin
var a := ReadArrInteger('a:', 10);
var b := ReadArrInteger('b:', 10);
var L := new List<integer>;
var (m, im) := (a[0] * b[0], 0);
for var i := 1 to a.High do
begin
var c := a[i] * b[i];
if c > m then
begin
L.Clear;
L.Add(i);
(m, im) := (c, i)
end
else if c = m then
L.Add(i);
end;
foreach var i in L do
Println(i + 1, a[i], b[i], a[i] * b[i] / 2)
end.
Исходный файл - 15 Мбайт
Его перезаписали в формате стерео 2 канала, значит 15 Мбайт увеличивается в 2 раза = 30 Мбайт.
Потом его оцифровали с разрешением в 3 раза выше исходного, значит увеличиваем еще в 3 раза 30×3=90 Мбайт
Частота дискретизации была меньше в 2 раза, чем у исходного, значит делим на 2. 90÷2=45 <span>Мбайт
Сжатия не проводилось, поэтому ответ: </span><span>45 </span>Мбайт
Можно всё записать в один пример:
Двойки сокращаются, остаётся 15*3 = 45 Мбайт
Нет компилятора чтобы проверить на ошибки, поэтому перепроверь сам на компьютере. Думаю, пойдёт так:
program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
end.
Должно, как я думаю, получиться в ответе 8-й день.
Отпиши что получится, ладно? Мне самому интересно.