Форум: "Потрепаться";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c