А) Рассказ о Петербурге иностранцу.
«…Императрица наша Екатерина очень заботится о нашем городе. Она ведь здесь живет, а в Москву и Царское Село ездит редко.
Вот в 1762 году издала Указ, чтобы дома строить только каменные, и непременно высотою более одного этажа, двух или трехэтажные.
Чтобы река Нева не ползла берегами и не засоряла русло, приняла Екатерина решение одеть набережную в гранит по всей городской черте, да Глухой проток выпрямить и в гранит одеть красиво, чтоб вредных испарений не было и дышалось хорошо.
На набережной вдоль домов много лавок всяких открывается, какого хочешь товару купить можно, и деньгами платить можно бумажными, называются они Ассигнации, если чего не хватает, то в банк можно обратиться, тебе иноземцу благородных кровей, под какую – нибудь дорогую вещицу с каменьями в долг ссудят.
А если привез что для продажи, так есть ярмарки, гостиные дворы, где продать помогут и деньгу выручить.
В Петербурге есть где развлечься, в Российском и Эрмитажном театрах музыку играют европейскую иноземные музыканты и актерствуют немцы, итальянцы, французы.
Остановиться на ночлег можно в подоходных домах, в них за сходную цену можно снять комнату…».
Б) Рассказ жителю другого города о Петербурге
«...Матушка наша – то Екатерина повелела домов более деревянных не строить, все каменные. И вам тверичам тоже надо бы от дерева уходить, а то пожаров много, горите чуть не каждый год. И Неву повелела в камень одеть, вам бы тоже Волгу не мешало берегами укреплять, чтоб не съезжали в реку по половодью. Вот пойдем, канал тебе покажу, Глухой протокой зовется, смотри вот уж в камень одевают, чтоб не испарял зловоние и вода текла в нем быстрее. Если приехал по какому делу, то на ночлег можно остановиться или у знакомых или в подоходных домах, Постоялых дворов теперь не приемлют, если только по окраинам, а в центре только дома под найм квартир и комнат.
В 1764 году открылся у нас институт для девиц — Смольным зовется, чтоб проходить науку, знать этикеты разные и готовиться вести хозяйство, туда принимают благородных, но немного учатся и мещанские. Гостиных дворов и ярмарок тоже много стало, что хошь можно продать и купить. Деньги теперь есть бумажные, не надо тяжелые кошели таскать, того и гляди умыкнут. Вдовам Екатерина казну вдовью открыла, чтобы вспомоществование оказывать, и дома воспитательные для сирот. Дома присутственные, театры красивые строит, мазанки все убирает, сады разводит, дороги мостит. Много трудится императрица наша для красоты города, говорит, чтоб самым лучшим был в мире...»
Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. Но программа работает как надо по вашему заданию. При чем вводить можно даже числа из девяти знаков
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.
ну сыграй Пабг, стандофф, Among Us,Asphalt 9, ну, а лучше книжку почитать)