Носитель информации, позволяющий сохранять для потомков лица людей, пейзажи и т.д. всего 10 букв

Фотография,если не ошибаюсь

// pascalabc.net 3.0, сборка 1064 const   n = 10; var   ms: array[1..n] of string;   t: string;   i, j: integer;   f: text; begin   { чтение матрицы из файла }   assign(f, 'in.txt'); reset(f);   for i : = 1 to n do readln(f, ms[i]);   close(f);   { вывод матрицы на экран }   writeln('*** бинарная матрица ***');   for i : = 1 to n do writeln(ms[i]);   { сортировка обменом (простейшая) }   for i : = 1 to n - 1 do       for j : = 1 to n - 1 do           if ms[j] > ms[j + 1] then           begin t : = ms[j]; ms[j] : = ms[j + 1]; ms[j + 1] : = t end;   { поиск одинаковых строк }   writeln(' строки');   j : = 1; t : = ms[1];   for i : = 2 to n do   begin       if ms[i] = t then inc(j)       else begin           if j > 1 then begin writeln(t); j : = 1 end;           t : = ms[i]       end   end;   if j > 1 then writeln(t) end. контрольное решение: *** бинарная матрица *** 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 0 0 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 1 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 строки 0 0 1 0 1 0 1 0 1 0 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1 0 1 1 0 1 0 1 0 1 0 1

Задача

Из двух чисел с разной четностью вывести на экран нечетное число.

Решение

Описание переменных:  

a, b - данные числа

Алгоритм решения задачи:  

Пользователь вводит четное и нечетное число. Последовательность их ввода может быть любой. Таким образом, неизвестно какая из двух переменных (a или b) содержит нечетное число. Чтобы выяснить это, используется конструкция условного ветвления (if-else), а также операция нахождения остатка от целочисленного деления (mod).

Если результат нахождения остатка от деления значения переменной a на 2 равен нулю, значит, эта переменная содержит четное число. Тогда нечетное число находится в переменной b и его следует вывести на экран. Если же результат нахождения остатка не равен нулю, значит, a содержит нечетное число. Оно выводится в ветке else.

Программа на языке Паскаль:  

var a, b: integer;

begin

writeln('Введите одно четное и одно нечетное числа');

readln(a, b);

if a mod 2 = 0 then

 writeln(b,' - нечетное число')

else

 writeln(a,' - нечетное число');

end.

Примеры работы программы:

Введите одно четное и одно нечетное числа

4 5

5 - нечетное число

Введите одно четное и одно нечетное числа

5 4

5 - нечетное число

Примечания:  

В данном случае предполагается, что пользователь осуществляет ввод правильно, т. е. всегда вводит одно четное и одно нечетное число. Если же ввод был некорректный (два четных или два нечетных числа), то программа будет работать неправильно. В случае двух четных чисел программа выведет второе. В случае двух нечетных - первое введенное. Чтобы избежать подобных недоразумений, программу можно усовершенствовать следующим образом:

var a, b: integer;

begin

writeln('Введите одно четное и одно нечетное числа');

readln(a, b);

if (a mod 2 = 0) and (b mod 2 <> 0) then

 writeln(b,' - нечетное число')

else

 if (a mod 2 <> 0) and (b mod 2 = 0) then

  writeln(a,' - нечетное число')

 else

  writeln('Некорректный ввод');

end.

В данном случае в заголовках условного оператора проверяются оба числа: одно - на четность, другое - на нечетность. Если оба будут четные, или оба будут нечетные, то сработает тело вложенного оператора else.