{В двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-го столбца} var C:array [1..100,1..100] of integer; p: longint; kol, k:byte; {кол-во отрицательных эл-тов} N,M,i,j:byte; begin writeln('введите размерность массива (кол-во строк, столбцов)'); readln(N,M); writeln('введите элементы двумерного массива'); for i:=1 to N do for j:=1 to M do read(C[i,j]); writeln('введите номер столбца'); readln(k); kol:=0; P:=1; for i:=1 to N do if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное} begin P:=P*C[i,k]; kol:=kol+1 end; writeln('kol=', kol:7); writeln('произведение=', P:5) end.
Текстовый документ- это документ, содержащий речевую информацию, зафиксированную любым типом письма или любой системой звукозаписи. Также, он содержит текстовые данные, которые, в свою очередь группируются в виде строк. (например, в Word или блокноте можем написать текст, который будет у нас печататься строками)
Мышка налила в первое ведро 15 капель и вылила во второе ведро , потом опять набрала в первое ведро 15 капель и вылила во второе ведро.Во втором ведре получилось 30 капель и мышка опять набрала 15 капель в первое ведро и налила из первого во второе наполнив второе ведро доконца , так что во втором ведре получилось 35 капель , а в первом 10. И мышка дала коту первое ведро с десятью каплями!