Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
1. Растровые графические изображения состоят из набора точек различных цветов и яркости. В компьютерных технологиях они формируются их элементов изображения, называемых пиксели (pixels). Ответ номер 4.
2. Векторные графические изображения хорошо поддаются масштабированию, так как они формируются из графических примитивов (линий, окружностей, прямоугольников и так далее). Ответ номер 2.
Замечание. На самом деле это не причина, а следствие. Изначально векторное изображение описывается набором математических выражений, задающих участки графиков необходимых функций (уравнения линий, окружностей, контуров геометрических фигур). Масштабирование сводится к умножению коэффициентов в этих уравнениях на величину, связанную с изменением масштаба, поэтому искажения изображения не появляются.
Виден только 7 номер
Не видно полное условие и не понятно для чего нужна переменная z, если все правильно понимаю то по условию значение у выведет я ответ 'да'
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>