Помогите с блок-схемой Turbo-Pascal
Var
Slova : Array [1..12] of String; i,j,k,s : Integer; Glasniy : Set of Char; Begin Glasniy:=['w','W','y','Y','i','I','o','O','a','A','j','J','у ','У','е','Е','e','E','ы','Ы','а','А','о','О','э', 'Э','я','Я','и','И','ю','Ю']; Writeln ('Введите 12 слов :'); k:=0; for i:=1 to 12 do begin Write (i,'-е слово : '); Readln(Slova[i]); if (Slova[i,1]='c') or (Slova[i,1]='с') then k:=k+1; end; Writeln ('Количество слов начинающихся с символа "c" : ',k); for i:=1 to 12 do if (Slova[i,1]='c') or (Slova[i,1]='с') then begin s:=0; for j:=1 to length(Slova[i]) do if Slova[i,j] in Glasniy then s:=s+1; Writeln ('В слове ',Slova[i],' ',s,' гласных.'); end; Readln; End. |
Часовой пояс GMT +4, время: 23:37. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.