Пишите нормальные значения не мб, а мегабайты.
Для начала перевидем I обьем(Дискета и CD диска) из мегабайт в байты.
Iд=1,44мбайт=1474.56кбайт=11'796.48байты
ICD=700мбайт=716'800кбайт=5'734'400байты
После этого делим Iд и ICD на Iобьем 1 страницы
Iд=11'794.48÷3000=3,93 округляем, получаем 3 страницы.
Хотя здесь вы бы сказали "Почему 3,а не 4"А вот почему, если вы бы округлили до 4 и умножили на 3000 для проверки, получилось бы 12000 байт, а это не верно потому что у Iд макс. 11'794.48.Поэтому у дискета уместится 3 страницы.
ICD=5'734'400÷3000=1911.46 округляем, получаем 1911 страниц.Поэтому у CD уместится 1911 страниц.
Ответ:3 <span>страницы текста уместится на дискету и 1911 страниц уместится на компакт-CD диск.
</span>P.S: Знак (') я писал, чтобы легче было распознать число.
Перевод из Килобайт в Байт происходит следующим образом:
Количество Килобайт умножается на количество Байт, содержащихся в одном Килобайте.
<h3>1 Килобайт = 1024 Байт</h3>
456 Килобайт = 456 · 1024 = 466944 Байт
897 Килобайт = 897 · 1024 = 918528 Байт
<h2>Ответ</h2>
466944; 918528
var a,z,x,y:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение z: ');
readln(z);
writeln('Введите значение y: ');
readln(y);
a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));
writeln('a = ',a);
end.
Каждую переменную обозначим отдельной буквой.
Var A:array[1..1000,1..1000] of integer;
M,N,Mi,Mj:integer;
Begin
Write('M(1..1000) = ');ReadLn(M);
Write('N(1..1000) = ');ReadLn(N);
For var i:= 1 to M do
Begin
For var j:= 1 to N do
Begin
A[i,j]:=random(1,M*N);
Write(A[i,j],' ')
End;
WriteLn;
End;
Mi:=M;
Mj:=N;
For var i:= 1 to M do
For var j:= 1 to N do
if A[Mi,Mj]<A[i,j] then
Begin
Mi:=i;
Mj:=j
End;
WriteLn('Max(A): A[',Mi,',',Mj,'] = ',A[Mi,Mj]);
End.