Есть растровая и векторная графика
Растровая - все изображение составлено из пикселей, точек, которые имеют свой цвет и расположение. Чем больше этих пикселей - тем лучше качество картинки. Недостатки: при большом масштабировании теряется качество (наверняка замечали квадраты при увеличении картинки) и еще один недостаток - объем файла, нужно задать цвет для каждого пикселя
Векторная графика - изображение состоит из примитивов (точка, линии, прямоугольники, окружности и прочее). Такое изображение легко увеличивается и уменьшается без потери качества, объем информации в файле меньше, (в файле хранятся не пиксели а параметры фигур: размер, цвет или радиус круга) но для сложных рисунков понадобится ОЧЕНЬ много точек и прямоугольников :D
Program qZiP;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
while <>0 do
begin
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
<span>end.</span>
Проверка финансово-хозяйственной деятельности за определенный период времени
В конце readln не требуется, тк считывать нечего.
И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );
Var m, w: real;
begin
read(m, w);
write('Salt: ', m * w / 100, '; water: ', m - m * w / 100);
<span>end.</span>
