Текущий архив: 2003.04.17;
Скачать: CL | DM;
Вниз
функции Найти похожие ветки
← →
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 класса...
← →
Anatoly Podgoretsky © (2003-04-01 23:07) [5]По моему складывать учат в первом классе
← →
Sha © (2003-04-01 23:13) [6]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;
Страницы: 1 вся ветка
Текущий архив: 2003.04.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
