Дан массив символов, образующий несколько слов. Вывести на экран слово с максимальным количеством гласных букв. Основной код я сделал и он правильный, осталось только найти максимальное кол-во гласных букв в слове и вывести это слово
код:
program lab_14;
const n=30; {максимальная размерность массива}
var a: array[1..n] of char; {объявление одномерного символьного массива}
kol: integer; {переменная для нахождения количества введенных слов}
k: integer; {вс переменная для хранения количества введенных
символов}
i: integer; {счетчик цикла}
begin
{Ввод с клавиатуры длины исходной строки}
writeln('Укажите суммарную длину вводимой строки, включая пробелы. Строка
не должна превышать', n , 'символов.');
k:=0;
repeat {Вводим ограничение на вводимое значение k}
readln(k)
until (k>1) and (k<30);
writeln('Введите строку и в конце нажмите клавишу Enter. Максимальная длина
введенной строки', k , 'символов, включая пробелы.');
{Ввод исходной строки}
for i:=1 to k do
read(a[i]);
{Первоначально предполагаем, что пользователь не ввел ни одного слова}
kol:=0;
{Вывод на экран введенной строки}
writeln('Исходная строка:');
for i:=1 to k do
write(a[i]);
writeln;
Вариант с использованием While
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
while (a <= b)
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
Console.ReadKey(); }
}
}
Вариант с использованием do while
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
do
{
if (a % 3 == 0)
{
Console.WriteLine(a);
}
a++;
}
while (a <= b); Console.ReadKey();
}
}
}
Вариант с использованием for
namespace ConsoleApplication
{
class Program
{
static void Main(string[] args)
{
int a = Convert.ToInt32(Console.ReadLine());
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine(" ");
for (int i = a; i <= b; i++)
{
if (i % 3 == 0)
{
Console.WriteLine(i);
}
} Console.ReadKey();
}
}
}
1.Компью́терный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.
2. Не работать под привилегированными учётными записями без крайней необходимости (учётная запись администратора в Windows).
Не запускать незнакомые программы из сомнительных источников.
Стараться блокировать возможность несанкционированного изменения системных файлов.
Отключать потенциально опасную функциональность системы (например, autorun-носителей в MS Windows, сокрытие файлов, их расширений и пр.).
Не заходить на подозрительные сайты, обращать внимание на адрес в адресной строке обозревателя.
Пользоваться только доверенными дистрибутивами.
Постоянно делать резервные копии важных данных, желательно на носители, которые не стираются (например, BD-R) и иметь образ системы со всеми настройками для быстрого развёртывания.
Выполнять регулярные обновления часто используемых программ, особенно тех, которые обеспечивают безопасность системы.
3.Wi-Fi — технология беспроводной локальной сети с устройствами на основе стандартов IEEE 802.11. Логотип Wi-Fi является торговой маркой Wi-Fi Alliance
4.Социальная сеть (сокр. ... соцсеть) — онлайн-платформа, которая используется для общения, знакомств, создания социальных отношений между людьми, которые имеют схожие интересы или офлайн-связи, также для развлечения (музыка, фильмы) и работы.
ДАЛЬШЕ НЕЗНАЮ