Так и будет: 480х272 = 130560 штук
Вес страницы текста в юникоде = 2048 * 2 байт = 4096 байт = 4Кб
Вес страницы текста в 1байтной = 2048 * 1 байт = 2048 байт = 2Кб
Вес страницы с рисунком = 1024 * 1024 * 16 бит = 16777216 бит = 2048Кб
Вес страницы с уменьшенным рисунком = 1024 * 1024 * 15 бит = 15 728 640 бит = 1920Кб
Теперь нам надо узнать сколько рисунков и сколько текста. Пусть рисунков будет х, тогда текста будет (520-х). Составляем уравнение
1920х + 4(520-х) = 2048х + 2(520-х)
2(520-х) = 128х
1040 - 2х = 128х
1040 = 130х
х = 8
Вес буклета = 2048 * 8 + 4 * (520 - 8) = 18 432 Кб = 18Мб
Ответ:
Объяснение:
2)
program uravn;
var x,y:real;
begin
writeln('Введите х');
readln(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
writeln('y=',y:4:2);
readln;
end.
3)
program rasst;
var
d,xa,ya,xb,yb:real;
begin
writeln('Введите координаты точек А(xa,ya), В(xb,yb)');
write('xa=');
readln(xa);
write('ya=');
readln(ya);
write('xb=');
readln(xb);
write('yb=');
readln(yb);
d:=sqrt(sqr(xb-xa)+sqr(ya-yb));
writeln('|AB|=',d:4:2);
readln;
end.
1)Если его перенесли в корень D:\, а папка Tasks именно там, то полное имя файла после копирования:
D:\Tasks\Физика.С
2) Мы знаем что был создан подкатолог, значит один мы сразу выкидываем и получаем D:\SCHOOL\PHYSICS (Вот собственно и всё)
3) Тут, к сожелению, ничего не понял.
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
