Вес страницы текста в юникоде = 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Мб
Program zadacha;vara,b,sum,pr:integer;beginwriteln('vvedite dva chisla');readln(a,b);if (a<>10) and (b<>10) and (a mod 2 = 0)thenwriteln('a+b=',a+b)elsewriteln('a*b=',a*b);end.
Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>
Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
