Имеется база данных crooks со следуйщими данными ​

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

стандартный программе просмотра изображений и факсов не сохраняет в других форматах.

потому лучше открыть paint или любой другой просмотрщик или графический редактор

просто открыть в нем нужную картинку и файл-сохранить как(в новом окошке внизу в списке выбрать формат)

о форматах написано много в интернете.

если хотите пошаговую инсрукцию, то присоединяйте картинки и табличку, а то так не ясно че делать

var x1,y1,z1,x2,y2,z2,d: real;

begin

writeln('введите координаты первой точки');

readln(x1,y1,z1);

writeln('введите координаты второй точки');

readln(x2,y2,z2);

d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));

wrileln(d);

end.