Получить "перевертыш" заданного трехзначного числа.

1)

program n1; uses crt; var a,b,c,x: integer; beginclrscr; writeln('vvedite chislo'); readln(x); a: =x div 100; c: =x mod 10 ; b: =x div 10 mod 10; if a=0 then writeln('chislo ne trehznachnoe! ') else writeln(c,b,a); readlnend.

 

2) или через string

 

program n1; uses crt; var a: string; beginclrscr; writeln('vvedite chislo'); readln(a); if length(a)> 3 then writeln('oshibka') elsewriteln(a[3],a[2],a[1]); readlnend.

//pascalabc.net 3.1 сборка 1200 var       a, b, c, d, x: real;       x2: array[1..2]of real;       i: integer; begin       readln(a, b, c);       d : = b * b - 4 * a * c;       if d < 0 then begin               writeln('сложные комплексные корни');               halt;       end;             d : = sqrt(d);       x2[1] : = (-b + d) / 2 / a;       x2[2] : = (-b - d) / 2 / a;             for i : = 1 to 2 do       begin               x : = sqrt(abs(x2[i]));               if x2[i] > = 0 then                       writeln('x[', 2 * i - 1, '] = ', x, ' x[', 2 * i, '] = ', -x)               else                       writeln('x[', 2 * i - 1, '] = ', x, 'i x[', 2 * i, '] = ', -x, 'i');       end; end.

11) 2,3; 12) 4 (1 байт (1 байт-8 бит-2^8=256 вариаций)); 13) 2 14) 1 (чорно-біле зображення - 1 біт на точку. 100х100х1=10,000 біт.) 15) на один чбп приходится 4 біта, тому що 2 в 4-ій степені - це і єсть 16. маємо 10*10 точок, тобто 100 чбп. отде, файл має рощмір 4 біта помножити на 100 = 400 біт (10*10*4=400) 16) 5 (для того, щоб краще зрозуміти, візьмемо малюнок із однієї точки чорної або білої. 0-чорна, 1-біла, потрібен 1 біт інформації. тепер, будемо кодувати точку із 4 кольорів: 0 0 - чорна, 0 1 - біла, 1 0 - червона, 1 1 синя. потрібно 2 біта (дві ячейки, які можуть бути 1 або 0). для точки із 8 кольорів потрібно 3 біта, (три ячейки 1 або 0) для точки із 16 кольорів потрібно 4 біта (2 в четвертій степені). щоб закодувати чисто 256 кольорів, потрібно 8 біт (2 в восьмій степені). щоб закодувати 100 точок (10*10=100), потрібно 8*100 =800 біт. 17) 3 18) 3 19) 3 20) 2,5