файл "поставщик": название организации, телефон, факс, ф.и.о. директора, код мфо, наименование товара, дата поставки, № накладной, объем поставки, стоимость, цена поставки, фио экспедитора
Не знаю, какой язык нужен, так что пусть будет паскаль. В обоих случаях предполагается, что есть заполненный массив A с индексами от 1 до n. i - целочисленная цикловая переменная. k - целочисленная переменная, куда записывается ответ
4) k := 0; for i := 1 to n do if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then begin write(A[i],' '); {вывод на экран - т.к. требуется найти элементы} k := k + 1 {элемент учитывается в счетчике} end; writeln; write(k) {количество таких элементов}
5) k := 0; for i := 1 to n do if (A[i] mod 2 = 0) and (i mod 2 = 0) then k := k + 1; write(k)
Растровая - все изображение составлено из пикселей, точек, которые имеют свой цвет и расположение. Чем больше этих пикселей - тем лучше качество картинки. Недостатки: при большом масштабировании теряется качество (наверняка замечали квадраты при увеличении картинки) и еще один недостаток - объем файла, нужно задать цвет для каждого пикселя
Векторная графика - изображение состоит из примитивов (точка, линии, прямоугольники, окружности и прочее). Такое изображение легко увеличивается и уменьшается без потери качества, объем информации в файле меньше, (в файле хранятся не пиксели а параметры фигур: размер, цвет или радиус круга) но для сложных рисунков понадобится ОЧЕНЬ много точек и прямоугольников :D
В обоих случаях предполагается, что есть заполненный массив A с индексами от 1 до n.
i - целочисленная цикловая переменная.
k - целочисленная переменная, куда записывается ответ
4)
k := 0;
for i := 1 to n do
if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then
begin
write(A[i],' '); {вывод на экран - т.к. требуется найти элементы}
k := k + 1 {элемент учитывается в счетчике}
end;
writeln;
write(k) {количество таких элементов}
5)
k := 0;
for i := 1 to n do
if (A[i] mod 2 = 0) and (i mod 2 = 0) then
k := k + 1;
write(k)