При использовании 256-цветовой палитры для хранения одной точки рисунка требуется log(2)256 = 8 бит; при использовании 2 цветов - log(2)2 = 1 бит.
20 Кбайт = 20*1024 байт = 20*1024*8 бит
Пусть K - количество точек рисунка, тогда K*8-K*1 = 20*1024*8
K = 20*1024*8/7
Первоначальный объем рисунка = (20*1024*8/7)*8 бит = 20*8/7 Кбайт ≈ 22,86 Кбайт
Const i = 6;
var x, h,y, max,k : real;
begin
k:=0;
h:= 0.01*i;
x:=0;
max:= sin(x+i);
writeln ('x':6, 'y':6);
repeat
y:= sin(x+i);
writeln(x:7:2, y:7:2);
if y > max then max:=y;
if y < 0 then k:=k+1;
x:= x + h;
until x > i + h/2;
writeln('max =', max:5:2);
writeln('Количество отрицательных=',k);
<span>end.</span>
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
Например с помощью оператора if:
Неполное if {условие} then do {...}
Полное
if {условие} then do {...}
else do {в противном случае}
Program e;
var s,x,n : real;
begin
writeln('Введите n');
readln(n);
x:=1488;
s:= x*3 + x*5 + x*n;
writeln('lentyai)) ',s);
<span>end.</span>