Напишите программу пересчета из одной величины в другую. 1 верста - 10668,8 м
1 верста - 500 саженей
1 сажень - 3 аршина
1 аршин - 16 вершков
1 вершок - 4,45 см
1 фут - 12 дюймов
1 дюйм - 0,254 см
1 морская миля - 1852,2 м
1 пуд - 16,38 кг​

64*64= 4096- общее количество пикселей.(точек на экране) 

512байт /4096=(512*8) бит\4096=1 бит.то есть получается что на одну точку приходится 1 бит данных. это значит что общее количество цветов на точку   - 2 в степени.   то есть 2 цвета

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

2. записываете данные.

3. записываете, что нужно найти.

4. вспоминаете все возможные соотношения и формулы, связывающие параметры, данные в , с тем параметром, который нужно найти.

5. решаете в общем виде - это значит выводите формулу, в которой известны все величины, кроме искогомого. подставляете известные значения в формулу и вычисляете. можно делать вычисления и постадийно - это уж как вам удобно.

6. проверяете размерности. в конечную формулу вместо числовых значений подставляются размерности соответствующих величин. если конечная размерность не соответствует размерности искомого, значит нужно искать ошибку. если соответсвует, то это еще не полная гарантия, что ответ правильный.

7. проверка. решаем обратную : считаем, что какое-либо из первоначальных данных неизвестно, и на основании найденного ответа вычисляем этот "условно неизвестный параметр". если результат вычислений совпадает в данными, значит решена верно. если нет - ищите ошибку.

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;

вот проверила, так работает. нормально?

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.