Http://www.vartet.narod.ru/do2/2612-tex1-inf.pdf
Кто сделает и скинет готовый файл в ворде?

194

384

Посмотреть ответы 1

Ответы на вопрос:

TimGoPro

Информатика

4,4(56 оценок)

Program gt; var a: string; l,i: integer; begin readln(a); for i: =1 to l do begin if(a[i]< > 'a')and(a[i]< > 'е')and(a[i]< > 'ё')and(a[i]< > 'и')and (a[i]< > 'о')and(a[i]< > 'у')and(a[i]< > 'ы')and(a[i]< > 'э')and(a[i]< > 'ю')and (a[i]< > 'я')then writeln(i); end; end.