Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
Добрый день!
И так, начнём..
*Вопрос: <span><span>Изменится ли строка ST, над которой произведут операцию COPY? Почему?
</span>*Ответ: <u>Изменится</u>, т.к. при использовании функции <span>COPY </span>необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.
**Вопрос: </span><span>Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?
**Ответ: Переменная k будет равна <u>17</u>, т.к. функция LENGTH определяет длину строки, считая каждый пробел, запятую, буквы и т.д.
***Вопрос: </span><span>Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?
***Ответ: Переменная tx будет равна слову <u>лес</u>. </span><span>Функция </span>DELETE<span> удаляет часть символов из строки. В нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.
****Вопрос: </span><span>Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?
****Ответ: Переменная k будет равна <u>1</u>. Т.к. функция POS определяет первое вхождение заданного символа.
Дополненная программа:
program zadacha1;
var t: string; b: string[1]; n, k, i: integer;
begin
writeln('Введите текст: ');
<em>readln(t);</em>
n := length(t);
k := 0;
for i := 1 to n do begin
b := copy(t, i, 1);
<em>if (t[i] = 'a') or (t[i] = 'A') or (t[i] = 'а') or (t[i] = 'А')</em> then k := k + 1;
end;
writeln ('k= ', k);
<span>end.
</span></span><span><span>
*<em>Курсивом и выделением обозначены дополнения в программе.</em></span></span>
const mmm=5;
var
x:array[1..mmm] of integer;
k, n, bmaks: integer;
begin
for n:=1 to mmm do readln (x[n]);
for n:=1 to mmm-1 do
for k:=1 to mmm-n do
begin
bmaks:=x[k+1];
X[k+1]:=x[k];
x[k]:= bmaks;
end;
for n:=1 to mmm do
writeln(x[n]);
end.
1) Растение
2) Компьютер, ситуация может восприниматься как "черный ящик"
3) Автомобиль
4) Телевизор, ситуация может восприниматься как "черный ящик"
5) Фотокамера, ситуация может восприниматься как "черный ящик"
6) Пациент
7) Часы