Помогите мне с задачками по паскалю пожалуйста, срочно!!!

Question

1.Дана последовательность символов. Найти количество символов равных первому в последовательности 
2.Найти среднее арифмитеческое простых элементов массива 
3. дана последовательность из N-чисел. найти количество четных чисел за которыми следует число кратное 3(решить без массива! )

Елена Трелина · Accepted Answer

очень легкие задачки

Дмитрий Сизанов · Answer

Ну в первой все легко: 
 
Var stroka: string; 
N, i: integer; 
Begin 
For i:=1 to length(stroka) do 
If stroka=stroka[1] then n:=n+1; 
End. 
 
Где stroka - последовательность символов, n - кол-во символов.