Придумай продолжение рассказа: мартовское утро было солнечным и тёплым. звенела капель. весело перекликались воробьи. в воздухе пахло весной. миша с леной решили покататься на лыжах с крутого и ещё заснеженного берега реки. они радовались наступающей весне и не обратили внимания на то,что лёд кое-где растрескался и около берега потемнел. сквозь тонкий слой льда уже было видно сильное течение тёмной " -какие опасности не заметили наши герои? -как могут развиватся дальнейшие события?

👇

Ответ:

dayn915

10.10.2022

- Наши герои не заметили, что лёд уже начал таять, а значит был очень хрупким и мог проломиться в любой момент.
- Если Лена и Миша начали бы кататься и кто-то из них попал на лёд, случилась бы беда. И пришлось звать на Если мальчик и девочка будут повнимательнее, то всё обойдётся

4,7(51 оценок)

Открыть все ответы

Ответ:

Zanyt

10.10.2022

Procedure GetWord(s:string; var p:integer; var w:string; delim:string:=' ');
{
Получает в w слово из строки s, которое начинается не ранее позиции p.
Возвращает новое значение p, указывающее на первый разделитель delim,
который следует за найденным словом или 0, если такой разделитель не найден.
По умолчанию слова разделяются не менее чем одним пробелом
}
var
i,n:integer;
fBreak:boolean; { флажок для прерывания циклов }
begin
n:=Length(s); fBreak:=False;
{ищем первый символ, отличный от разделителя - начало слова }
while ((p<=n) and (not fBreak)) do
    if (p=n) or (s[p]<>delim) then fBreak:=True
    else Inc(p);
{ ищем очередной разделитель - конец слова }
if p<n then begin
    i:=p; Inc(p); fBreak:=False;
    while (p<=n) and (not fBreak) do begin
      if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p)
    end;
{ теперь слово находится между позициями i и p }
w:=Copy(s,i,p-i)
end;
if p>=n then p:=0
end;

function CountG(w:string):integer;
{ возвращает количество гласных в слове w}
var
i,k:integer;
begin
k:=0;
for i:=1 to length(w) do
    if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
CountG:=k
end;

var
s,w,wmax:string;
p,k,gmax:integer;
begin
Writeln('Введите текст, разделяя слова пробелами');
Readln(s);
s:=LowerCase(s);
p:=1; gmax:=0;
while p>0 do begin
    GetWord(s,p,w);
    k:=CountG(w);;
    if gmax<k then begin gmax:=k; wmax:=w end
end;
if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax)
else Writeln('Во введенной строке гласных букв не найдено')
end.

4,4(28 оценок)

Ответ:

liza2002623

10.10.2022

Когда вы устанавливаете новые программы в терминале, вы могли часто видеть появляющиеся информативные диалоговые блоки для обратной связи с вами. Типы диалоговых блоков различны: от простых диалогов да/нет до полей ввода, блоков паролей, чеклистов, меню и так далее. Преимущества использования таких дружественных к пользователю блоков очевидны, ведь они интуитивно направляют вас для ввода необходимой информации.

Когда вы пишите интерактивный шелл скрипт, вы на самом деле можете использовать такие диалоговые блоки для принятия ввода пользователя. Будучи предварительно установленной на всех современных дистрибутивах Linux, программа под названием whiptail может упростить процесс создания шелл скриптом диалоговых и информационных блоков в терминале наподобие тех, что графических интерфейсов, что кодируют Zenity или Xdialog для скриптов.

В этом уроке я опишу как с использованием whiptail создать дружественный пользователю диалоговые блоки в шел скрипте. Я также покажу Баш фрагменты кода различных диалоговых блоков, поддерживаемых в whiptail. (надеюсь подойдет)

4,6(49 оценок)

Это интересно:

Компьютеры-и-электроника

05.06.2020

Как обновить приложение на Android: Инструкция от профессионалов...

Семейная-жизнь

05.11.2021

Как увеличить амниотическую жидкость...

Здоровье

29.07.2021

Как правильно наложить шину на перелом плечевой кости: подробный руководство...

Стиль-и-уход-за-собой