функции

← →
Terri (2003-04-01 21:55) [0]

Как определить, каких букв в строке S больше - гласных латинских или согласных латинских

← →
Palladin © (2003-04-01 22:13) [1]

посчитать

← →
gek © (2003-04-01 22:15) [2]

Пробежать по строке и смотреть каждый символ
i:=length(s)
for k:=1 to i do
if s[k] in [""..""] then
else

← →
DVM © (2003-04-01 22:22) [3]

Решение задач студентам за деньги.

← →
Palladin © (2003-04-01 22:32) [4]

> DVM © (01.04.03 22:22)

Студентам????!!
задача 8 класса...

По моему складывать учат в первом классе

var
s: string;
i: integer;
Count: array[0..2] of integer;
Letter: array[Char] of integer;
begin;
for i:=0 to 2 do Count[i]:=0;
Letter[]:=....; //0=ни то ни се, 1=гласная, 2=согласная
for i:=1 to Length(s) do inc(Count[Letter[s[i]]];
//Сравниваем Count;
end;

функции Найти похожие ветки