Satiata
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дана последовательность из N символов. Выяснить, есть ли в последовательности буквы, входящие в слово "jack".
нужна помощь(
Добавлено:
program laba
implicit none
integer s(100),i,n,a,b,c,d,e,f
print *,'vvedite slova'
e=0
b=0
d=0
f=0
do i=1,n then
read (*,*) s
if (s(i)=='j') then e=e+1
if (s(i)=='a') then b=b+1
if (s(i)=='c') then d=d+1
if (s(i)=='k') then f=f+1
end do
write (*,*) 'kol-vo j=',e
write (*,*) 'kol-vo a=',b
write (*,*) 'kol-vo c=',d
write (*,*) 'kol-vo k=',f
end
фортран выдает 5 ошибок можете помочь?
Добавлено:
только надо еще сделать чтобы выводило какие они по счету..
Добавлено:
p.s. сам сделал =)) |
.
