PascalABC, вопрос
program upr1;
var st:string; gl,gl_st: set of char; k,i:byte; c:char; begin writeln('введите строку:'); readln(st); gl:=['a','e','i','o','u','y']; k:=0; gl_st:=[]; for i:=1 to length(st) do if st[i] in gl then gl_st:=gl_st+[st[i]]; writeln('буквы,удовлетворяющие условию:'); for c:='a' to 'z' do if c in gl_st then begin write(c:3); k:=k+1; end; writeln; writeln('количество элементов во множетстве: ',k); end. как сделать так, что бы печатались в алфавитном порядке все гласные буквы, не входящие хотя бы в одно слово( дана последовательность английских слов) |
Цитата:
Код:
program upr1; |
Часовой пояс GMT +4, время: 21:27. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.