BEGIN
<em>writeln('Введите а');</em>
<em>writeln('Введите а');readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) do</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobegin</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;</em>
<em>writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;writeln(i, '- количество четных чисел, кратных трём.');</em>
END.
<em>Достоинства:</em>
<em> </em>
<em>- Проста в использовании</em>
<em>-Легкая деформация</em>
<em>-При создании изображения, в общем виде оно выглядит достаточно реалистично.</em>
<em> </em>
<em>Недостатки:</em>
<em> </em>
<em>-Плохая трансформация </em><em />
<em>-Нельзя рассмотреть детали изображения(так как оно состоит из точек(пикселы) то при увилечении изображения, все точки , также увеличиваются)</em>
<em>-При создании подобного изображения нужно сразу вводить его данные(размер, глубина света и т.д) и, например, если надо передать фотографию на печать, и уменьшить ее размер и глубину цвета, изображение искажается.</em>
Var m1,m2,m3:array of integer;
i,n:integer;
begin
write('Введите размер массивов');
readln(n);
setlength(m1,n);
setlength(m2,n);
setlength(m3,n);
//Заполнение массивов
for i:=0 to n-1 do begin
m1[i]:=random(21)-10;
m2[i]:=random(21)-10;
m3[i]:= m1[i]+m2[i];
end;
//Вывод массивов
for i:=0 to n-1 do write(m1[i]:4);
writeln;
for i:=0 to n-1 do write(m2[i]:4);
writeln;
for i:=0 to n-1 do write(m3[i]:4);
writeln;
end.
Тестовое решение:
Введите размер массивов 10
7 -10 9 -4 8 -6 10 4 6 2
10 -3 -2 -7 1 9 2 3 5 -6
17 -13 7 -11 9 3 12 7 11 -4
Информационные носители это:цифровой,графический. Пока два ответа.
Программа и пример её работы - в прилагаемом файле.
