Может быть:
-Создание рисунка.
-Преобразование уже готового изображения.
-Возможность работы с отдельными частями изображения.
-Ввод текста в картинку.
-Нарисованное или отредактированное изображение при желании можно распечатать на принтере, не выходя из программы.
Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
<span>Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
</span>Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
<span>Барометр нужен для измерения атмосферного давления.
</span><span>Компас нужен для ориентирования по магнитным полюсам Земли.
</span><span>Телескоп нужен для того, чтобы увидеть отдалённые объекты.
</span><span>Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
</span>Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)
Исполнителями алгоритма на мой взгляд являются В и С
Пишу с телефона если есть возможность-проверь.Если справился,буду рад)
Uses CRT;
Var a,b,c,D,x,x1,x2 : integer;
Begin
D:=0;
Writeln('Дано уравнение ax^4+bx^2+c=0,введите а,b,c);
Readln(a);readln(b);readln(c);
D:=b*b - 4*a*c;
If D<0 then writeln('Нет корней');if X=0 then writeln('Уравнение имеет 1 корень-',(-b/2a)*b');
if D>0 then begin
x1:=(-b+ sqrt D)/2a;
x2:=(-b- sqrt D)/2a;
writeln('Корни вашего уравнения:');writeln('x1=',x1*b,'x2=',x2*b);
End;
End.