Растровый файл, содержащий черно-белый (без оттенков серого) квадратный рисунок, имеет объем 50 байт. рассчитайте размер стороны квадрата (в пикселях

ответ:

1 байт всегда равен 2 пикселя! значит 50*4(4 т.к стороны квадрата!

Const  n = 5;   m = 10;   var  a: array [1..n, 1..m] of real;     s, r: real;   kol, i, j: integer;   //kol - количество чисел  begin  writeln('введите r');   readln(r);   for i: = 1 to n do  for j: = 1 to m do  begin    writeln('введите a[', i, ', ', j, ']');     readln(a[i, j]);     if a[i, j] > r then    begin      kol: = kol + 1;       s: = s + a[i, j];     end;   end;   s: = s / kol;   writeln(kol, ' чисел > ', r);   writeln('среднее арифметическое равно ', s); end. 

Судя по коду, я нашёл значения переменных: - площадь квадрата, вписанного в круг. - площадь круга. - диагональ квадрата. - диаметр круга. - сторона квадрата. далее, разберём сам код: с самого начала программа предлагает ввести площадь квадрата и площадь круга ("writeln('введите s1 и s2: ');   ") и записывает введённые значения в переменные  и  соответственно (readln(s1, s2);   ). следующее действие программы - " a : = sqrt(s1);   " - не что иное, как вычисление длины стороны квадрата из площади( ). далее - "dg : = a * sqrt(2);   " - программа вычисляет диагональ квадрата, который вписан в круг, с формулы  . следующий шаг программы - "dr : = sqrt(4 * s2 / pi); " - вычисляет диаметр круга согласно формуле  , которая выведена из формулы площади круга:   следующими действиями программа сравнивает два диаметра, один из которых был получен путём использования значений квадрата, а другой - значений круга. то есть, программа, сравнивая эти два значения диаметра, определяет, может ли квадрат быть вписан в круг, согласно данных,  введённых пользователем, о площадях этих двух фигур. текст может быть сформулирован так же: напишите программу, которая бы определяла, может ли быть вписан квадрат в круг, исходя из значений их площадей, введённых пользователем.