Var summa,count,numb :integer;
begin
summa:=0;
count:=0;
readln(numb);
while numb <> 0 do
begin
if numb mod 17 = 0 then
begin
summa:=summa+numb;
count:=count+1;
end;
readln(numb);
end;
if (summa > 0) and (count > 0) then
writeln(summa,' ',count)
else
writeln('No');
end.<span>
</span>
1875 кбайт * 1024 * 8 = 15 360 000 бит
800 * 600 * (ln(256)/ln(2)) = 3840000 бит
15360000 / 3840000 = 4 страницы
// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);
D=48 000 Гц
i=32 бит
t= 4 мин = 240 сек
k=1 (моно)
V=D*k*I*t=48*2^10*2^5*2^8=48*2^23бит=48 Мбайт, приблизительно 44 Мбайт
Ответ: 1) 44 мбайт