Регистрация
LeaV
24.10.2022 00:51
Информатика
Есть ответ 👍

Задача № 1.
Алг задача1;
Нач
Нц 6 раз
Вниз; построить(0);
Кц
Вниз
Нц 3 раз
Вправо; построить(1);
кц
Кон
Задача № 2.
Алг задача2;
Нач
Вправо; вниз;
Нц 5 раз
Закрасить; вправо; закрасить; вниз;
Кц
Кон
Задача № 3.
Алг задача3;
Нач
Вправо(2); вниз;
Нц 2 раз
Закрасить; Вниз; закрасить; вниз; закрасить; вправо; закрасить;
Вправо(3); вверх(2);
Кц
Кон

138
410
Посмотреть ответы 1

Ответы на вопрос:

ваня1358
ваня1358
4,8(5 оценок)
Var   s, c, cmax: string;   i, j, k, max: integer; begin   write('введите предложение: '); readln(s);   s : = uppercase(s) + '.';   max : = 0;   i : = 1;   while (i < = length(s)) do   begin       c : = '';       while (s[i] in ['а'..'я']) do       begin           c : = c + s[i];           i += 1;       end;       k : = 0;       for j : = 1 to length(c) do           if (c[j] in ['а','е','ё','и','о','у','э','ю','я']) then               k : = k + 1;       if (k > max) then       begin           max : = k;           cmax : = c;       end;       i += 1;   end;   writeln('слово с наибольшим количеством гласных: ',cmax); end. пример: введите предложение: написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное слово с наибольшим количеством гласных: предложении

Популярно: Информатика