Ответ:
program pr1;
var
i: Integer;
begin
for i := 1000 to 9999 do begin
if (i div 10) mod 10 <> (i div 100) mod 10 then
Write (i, ' ');
end;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - -
program pr2;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
Основная мысль притчи-мудрость,долголетие,праведность,любовь к ближнему,страх перед животворными силами природы,воздержание,усердие,самообладание,разумное пользованием богатством,сочувствие к бедным,милосердие,выбор друзей,честность,трудолюбие.
Div целая часть деления
mod остаток
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
var z:real;
if x<b then z:=ArcCos(a*a/(a*a+x*x))
else
if x=b then z:=Ln(2+Cos(b*x))
else z:=Abs(Tan(b*x))+2**(-a*x);
Writeln('z(x)=',z)
end.
При палитре из 8 цветов на 1 пиксель необходимо log(2)8 = 3 бита.
На весь рисунок: 768*96*3 бит = 768*96*3/8 байт = 27648 байт = 27648/1024 Кбайт = 27 Кбайт