Из этих предложений можешь составить - Генри, расскажи нам, какой твой любимый предмет в школе? Henry, cuéntanos, ¿cuál era tu asignatura favorita en la escuela?
Какой у тебя любимый предмет в школе? ¿Cuál es tu asignatura favorita?
Её любимый предмет - морская биология. Su materia favorita es la biología marina.
Так, скажите мне, какой любимый предмет был у вас в школе? ¿Dime, cuál era tu materia favorita en el colegio?
Ну, история - мой любимый предмет... Bueno, Historia es mi clase favorita.
Илиана, какой твой любимый предмет? Eliana, ¿cuál es tu clase favorita?
Плюс Профессор Пайзер ведет мой любимый предмет журналистики в Колумбийском университете. Además el profesor Peiser enseñaba mi clase favorita de periodismo en Columbia.
Какой твой любимый предмет? ¿Cuál es tu asignatura favorita?
История мой любимый предмет. La historia es mi asignatura favorita.
Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. Но программа работает как надо по вашему заданию. При чем вводить можно даже числа из девяти знаков
function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) > 0 then begin Result := True; for k := 1 to length(x) do if not (x[k] in ['0'..'9']) then begin Result := False; // если пользователь ничего не ввел или ввел не цифры, то будет возвращена ложь end;end;end;
var N: string; error, r, i, min: integer; B: array[1..8] of integer; // В - массив, в котором будут храниться все цифры введенного числа begin write('Введите целое положительное число: '); readln(N); if checkstr(N) then begin // вызываем нашу функцию на обработку введенных данных r := Length(N); // присваиваем переменной r размер введенной строки val( N[ 1 ], min, error); // конвертирует строковое значение в тип integer и присваиваем минимальному значению первую цифру for i := 2 to r do begin val( N[ i ], B[ i ], error ); // конвертируем строковые цифры в integer if ( B[i] < min ) AND ( B[i] mod 2 <> 0) then min := B[i]; // если цифра нечетная и меньше переменной min , то присвоить переменной min значение этой цифры if ( min mod 2 = 0 ) then min := B[i]; // проверяем на всякий случай еще раз первую цифру end; if ( min mod 2 = 0 ) then writeln('Нечетных цифр нет') // если нечетных цифр нет, а наименьшая цифра четная, то говорим, что нечетных цифр нет else writeln( 'Наименьшая нечетная цифра в числе: ', min ); // выводим наименьшую нечетную цифру из числа end else writeln('Неверный формат ввода'); // если пользователь вдруг ввел буквы или какие-нибудь каракули вместо целого числа end.
не знаю,,