1.Выберите из предложенных величин текстовую величину.‘ИСТИНА’
3,69 0 '-48' FALSE
2.Переведите арифметические выражения из линейной записи в общепринятую.
а) c + b – a / b * c б) (c + b) / (a * b) в) a – b * c / (a * c)
3.Запишите на алгоритмическом языке.
а) √(a^2-c)+b б) a/(c-ab)
4.Изобразите в декартовой прямоугольной системе координат область, в которой и только в которой истинны следующие логические выражения:
а) (y>=-x) и (x<=0) и (y<=3)
5.Запишите логическое выражение, истинное при выполнении указанного условия и ложное в противном случае:
а) хотя бы одно из чисел x и y больше 2.
б) х принадлежит интервалу [-8,0].
CРОЧНО!

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1