Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
А) Ваня решает у доски задачу;
Хранение информации (в мозге Вани)
Обработка информации (оперирование исходной информацией для получения новой по определенным правилам)
Передача информации (От Вани – классу, используя доску)
<span>б) </span>Оля слушает по радио новости;
Передача информации (от радио – Оле, используя динамики)
Хранение информации (в мозге Оли)
<span>в) </span>Дима учит правило;
Хранение информации (внешняя память, книга)
Передача информации (от книги – Диме, используя текст)
Хранение информации (в мозге)
<span>г) </span>Саша и Вова разговаривают по телефону;
Хранение информации (в мозге у Саши)
Передача информации (от Саши – Вове, используя телефон)
Хранение информации (в мозге у Вовы)
<span>д) </span>Женя отправляет SMS-сообщение;
Хранение информации (в мозге у Жени)
Передача информации (от Жени – получателю, используя телефон)
Обработка информации (кодирование по каналу связи, декодирование)
Хранение информации (во внутренней памяти телефона у получателя)
<span>е) Лена рисует план квартиры. </span>
Хранение информации (в мозге у Лены)
Обработка информации (структурирование, математические расчеты)
<span>Хранение информации (внешняя память, лист бумаги/холст)</span>
Я = П + С
2А = 3П
Я + С = А =>
2(Я+С) = 3П
П = Я - С =>
2(Я+С) = 3(Я-С)
2Я+2С = 3Я - 3С
5С=Я
Ответ: 5 слив
1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
ЗМ-СК-ЧК (зеленая мышка, синий коврик и тд.)
ЗМ-КК-ЧК
ЗМ-КК-БК
ФМ-СК-ЧК
ФМ-КК-ЧК
ФМ-КК-БК
Ответ: 6 наборов.
P.S. Это делать в тетради нужно в форме дерева
