1. В одном небольшом кафе в смене одновременно работали 5 человек: администратор, повар, кондитер, кассир, дворник. Одновременно на работу выходили мисс Галбрейт, мисс Шерман, мистер Вильямс, мистер Вортман и мистер Блейк. При этом известно, что: 1. Повар – холостяк. 2. Кассир и администратор жили в одной комнате, когда учились в колледже. 3. Мистер Блейк и мисс Шерман встречаются только на работе. 4. Миссис Вильямс расстроилась, когда муж сказал ей, что администратор отказал ему в отгуле. 5. Вортман собирается быть шафером на свадьбе у кассира и кондитера. Кто на какой должности в этом кафе? (Решите задачу табличным Ваня, Петя, Саша и Коля носят фамилии, начинающиеся на буквы В, П, С и К. Известно, что: 1. Ваня и С. – отличники 2. Петя и В. – троечники 3. В. ростом выше, чем П. 4. Коля ростом ниже, чем П. 5. у Саши и Пети одинаковый рост. На какую букву начинается фамилия у каждого мальчика? (Решите задачу табличным На школьной дискотеке Валентин, Николай, Владимир и Алексей, все из разных классов, танцевали с девочками, но каждый танцевал не со своей одноклассницей. Лена танцевала с Валентином, Аня – с одноклассником Наташи, Николай – с одноклассницей Владимира, а Владимир – с Олей. Кто с кем танцевал, и кто с кем учится? ( (Решите задачу табличным Употребляемые в обычной речи слова «не», «и», «или», «если …, то», «тогда и только тогда» и другие позволяют из уже заданных высказываний строить новые высказывания. Такие слова и словосочетания называются
1) Логическими связками
2)Логическими предлогами
3)Логическими продолжениями
Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы}
B : array [1..100, 1..100] of integer ;
C : array [1..100, 1..100] of integer ;
m, n, i,j: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
writeln ('Введите размерность матриц m и n (числа <100)');
readln (m, n);
For i:=1 to m do
For j:=1 to n do
begin
A[i,j]:=random (20)-10; {ввод элемента матрицы}
B[i,j]:=random (20)-10; {ввод элемента матрицы}
end;
writeln ('Итоговая матрица A: ');
For i:=1 to m do
begin
For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
writeln ('Итоговая матрица B: ');
For i:=1 to m do
begin
For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
For i:=1 to m do {цикл по всем строкам матрицы}
For j:=1 to n do {цикл по всем столбцам матрицы}
if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j];
writeln ('Итоговая матрица C: ');
For i:=1 to m do
begin
For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
end.