{В двухмерном массиве найдите количество и произведение не кратных 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.
2 в.н.э - Изобретение технологии изготовления бумаги в Китае Середина 15 в. - Начало книгопечатания в Европе 2-1 тысячелетия до н.э - Появление алфавитного письма в Финикии 80- гг. 20 в. - Появление первых лазерных дисков 5-15 тысячелетия до н.э - Первые следы иероглифического письма в Древнем Египте Середина 16 в - Начало книгопечатания в Росии 60-е гг. 20 в. - Появление первых жестких дисков для компьютеров 1895 г - Демонстрация первого кинофильма 70-е гг 19 в - Первая запись звука с фонографа 20-е гг 20 в - Изобретение магнитофона 1839 г. - Изобретение фотографии
Информацию можно поделить на декларативную и процедурную. Процедурная сообщает о том, как достичь какой-либо цели, декларативная – обо всём остальном, о свойствах объектов, фактах, явлениях и т.д.
1. Вся предложенная информация – декларативная, она содержит информацию об определениях (а, в, г) или свойствах (б, д) объектов. Очень близок к процедурной информации вариант д, однако на мой взгляд, это всё ещё декларативная информация, сообщение относилось бы к процедурной информации, если его бы записали так: для умножения простых дробей нужно перемножить их числители и знаменатели.
2. Декларативная – а и в (к варианту в то же замечание, что и в первом вопросе, если нужен только один ответ, тогда лучше записывать только а). Варианты б, г, д – процедурная информация, они рассказывают, как достичь цели: удалить текущий файл, сократить дробь или найти корни квадратного уравнения.
трехзначным элементов 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.