2. Які із вказаних ознак найхарактерніші для захворювань серцево-судинної системи: а)метеоризм; б)закреп; в)серцебиття; г)кашель, ґ)ядуха; д)набряклість гомілок; е)гіркота в роті?
Третья Пуническая война Рима с Карфагеном началась из-за простой зависти римлян богатству торгового города Карфагена. Римлянам показалось мало того, что Карфаген после поражения во Второй Пунической войне должен был несколько десятков лет выплачивать баснословные суммы. Более того, в Риме прекрасно знали, что Карфаген не обладает армией и уже не представляет никакой военной угрозы. Однако Сенат постановил — Карфаген должен быть разрушен. Поэтому легионы в очередной раз отправились в Африку. На этот раз осаждать практически беззащитный город. Два года длилась безнадежная для карфагенян осада. Лишь когда защитников города одолел голод и болезни, римлянам удалось ворваться за крепостные стены. Римляне устроили настоящую резню. Жители Карфагена, понимая, что с Римом уже бесполезны какие-либо переговоры, поскольку эти договоренности столько раз уже нарушались, сражались до последнего.
Весной 146 года до н. э. римляне штурмом ворвались в город, но ещё шесть дней шла ожесточённая битва. Каждый дом, каждая крыша становилась опорным пунктом для защитников. Через неделю уличных боёв в руках карфагенян осталась только крепость Бирса. Когда к Сципиону Эмилиану, командующему римской армии, пришла оттуда просьба о капитуляции, он согласился даровать жизнь всем, кроме римских перебежчиков. Из крепости вышли вместе с женами и детьми 50 тысяч карфагенян, все они были порабощены.
Командующий обороной Гасдрубал вместе с карфагенскими патриотами и римскими перебежчиками, которые не могли рассчитывать на пощаду, укрепился в храме Эшмуна, выстроенном на высокой скале. Тогда римляне решили выморить их голодом. Доведённые до крайности, осаждённые подожгли храм, чтобы не погибать от рук врага. Лишь Гасдрубал выбежал из храма и вымолил себе пощаду. Увидев это, его жена Иша прокляла мужа как труса и изменника, кинула в огонь детей и сама бросилась в пламя. Стойкость защитников Карфагена, несмотря на безысходность и очевидность поражения, вызывает восхищение и сочувствие.
Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. Но программа работает как надо по вашему заданию. При чем вводить можно даже числа из девяти знаков
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.
Весной 146 года до н. э. римляне штурмом ворвались в город, но ещё шесть дней шла ожесточённая битва. Каждый дом, каждая крыша становилась опорным пунктом для защитников. Через неделю уличных боёв в руках карфагенян осталась только крепость Бирса. Когда к Сципиону Эмилиану, командующему римской армии, пришла оттуда просьба о капитуляции, он согласился даровать жизнь всем, кроме римских перебежчиков. Из крепости вышли вместе с женами и детьми 50 тысяч карфагенян, все они были порабощены.
Командующий обороной Гасдрубал вместе с карфагенскими патриотами и римскими перебежчиками, которые не могли рассчитывать на пощаду, укрепился в храме Эшмуна, выстроенном на высокой скале. Тогда римляне решили выморить их голодом. Доведённые до крайности, осаждённые подожгли храм, чтобы не погибать от рук врага. Лишь Гасдрубал выбежал из храма и вымолил себе пощаду. Увидев это, его жена Иша прокляла мужа как труса и изменника, кинула в огонь детей и сама бросилась в пламя. Стойкость защитников Карфагена, несмотря на безысходность и очевидность поражения, вызывает восхищение и сочувствие.