Pascal. написать алгоритм нахождения максимума из трех чисел (a, b, c) на языке паскаль.

uses crt; vara, b , c: real; beginreadln (a, b, c); if (a> b) and (a> c) then writeln (a, ' max'); if (b> a) and (b> c) then writeln (b, ' max'); if (c> a) and (c> b) then writeln (c, ' max'); if (c=a) and (c=b) then writeln ('vse chisla ravni'); readkey; end.

uses crt; var a,x,y,z: integer; begin write ('x='); read (x); write ('y='); read (y); write ('z='); read (z); if x> y then a: =1else a: =0; if (a=1) and (x> z) then write('x-bolwe'); if (a=0) and (x< z) and (z> y) then a: =3; if (a=0) and (y> z)then write('y-bolwe'); if (a=3) thenwrite('z-bolwe'); read; end.

 

 

находит большее из 3-х, ты ведь это имела ввиду)

 

количество цветов в палитре определяется формулой хартли: n=2^i (где n - количество цветов,  i - "вес" 1 px в битах).

1. найдем количество пикселей в изображении: 256*256=2^8 * 2^8 = 2^16 px

2. определим "вес" всех рх, переведя кб в биты: 8*2^13 (бит) = 2^3 * 2^13 = 2^16 (бит)

3. разделим "вес" всего изображения на количество рх (то есть найдем "вес" 1 рх в битах): 1 рх = 2^16 / 2^16 = 1 бит

4. следовательно (см. начало), количество цветов n=2^1=2 (т.е. изображение двухцветное, скорее всего - ч/б)

Первый вариант: если десятичный логарифм от (2x+3). var x: real; begin write('x = '); readln(x); if x< =-1.5 then writeln('ошибка: нельзя вычислить логарифм от нуля! ') else if x = 0 then writeln('ошибка: на ноль делить нельзя! ')         else writeln('f(',x,') = ',ln(2*x+3)*4/(tan(3*x)*ln( end. второй вариант: если логарифм по основанию (2x+3) от 4. var x: real; begin write('x = '); readln(x); if x< =-1.5 then writeln('ошибка: основание логарифма должно быть больше нуля! ') else if x = 0 then writeln('ошибка: на ноль делить нельзя! ')         else writeln('f(',x,') = ',ln(4)/(tan(3*x)*ln(2*x+ end.