строки

[Бабурчик]

Текст задан строкой var St: string;
Написать программу которая считает: Количество гласных (a, e, i, o, u) превосходит количество других символов.

[Google2010]

Количество гласных (a, e, i, o, u) превосходит количество других символов.

ты сам то понял- чего спросил

[MacOSUser]

Как-то так:

var str : string;
	i, len, count : integer;

begin

	writeln( 'Input string:' );
	readln( str );

	len := Length( str );
	count := 0;

	for i := 1 to len do
		if str[ i ] in [ 'a', 'e', 'i', 'o', 'u' ] then
			inc( count );
	
	if count > len div 2 then writeln( 'Exceeds' )
	else writeln( 'Doesnt exceed' );

	readln

end.

[Бабурчик]

Сообщение от Google2010

ты сам то понял- чего спросил

какой вопрос мне задали, такой я вам и пишу...

[Бабурчик]

MacOSUser, извини, но ты бы ни смог мне объяснить то что ты сделал, в программе??? просто, я совсем ни бум бум((((((((((((

[MacOSUser]

var str : string; // Строка
	i, // индекс для прохода по строке
	len, // длина строки
	count : integer; // количество гласных

begin

	writeln( 'Input string:' );
	readln( str ); // Ввод строки

	len := Length( str );
	count := 0;

	// Проход по строке
	for i := 1 to len do
		// если встретилась гласная
		if str[ i ] in [ 'a', 'e', 'i', 'o', 'u' ] then
			// увеличиваем их количество
			inc( count );
	
	// Если гласных больше половины, значит по количеству их больше
	if count > len div 2 then writeln( 'Exceeds' )
	// Иначе меньше
	else writeln( 'Doesnt exceed' );

	readln

end.

[Kotlyar562]

Сообщение от Бабурчик

MacOSUser, извини, но ты бы ни смог мне объяснить то что ты сделал, в программе??? просто, я совсем ни бум бум((((((((((((

Я могу

Сообщение от MacOSUser

var str : string;
	i, len, count : integer;

begin

	writeln( 'Input string:' );
	readln( str );            \\вводим строку

	len := Length( str );     \\ len присваиваем длину строки
	count := 0;     \\счетчик гласных букв, присваиваем 0

	for i := 1 to len do  \\ запускаем цикл, что бы читать строку
		if str[ i ] in [ 'a', 'e', 'i', 'o', 'u' ] then  \\ если i-я буква строки гласная, то
			inc( count );  \\увеличиваем счетчик гласных на 1
	
	if count > len div 2 then writeln( 'Exceeds' )  \\ если количество гласных больше половины букв рядка, то пишем Exceeds
	else writeln( 'Doesnt exceed' );  \\ в противном случае пишем Doesnt exceed

	readln

end.

Вот и посути и все... Что именно еще не понятно?

Пока написал, MacOSUser ответил))

[Бабурчик]

СпоСИБО БОЛЬШОЕ всем всем всем)))))))))))))))))))))))) просите что хотите))))))))))))))

[MacOSUser]

Хочу, чтоб ты нажал на весы. Под моим ником.

[Бабурчик]

Вопервых я ДЕВУШКА))) во вторых, что за весы и где их найти, подробнее)))