Регистрация
baumwolle
07.06.2022 15:28
Информатика
Есть ответ 👍

Дан текстовый файл. напечатать в алфавитном порядке все слова из данного файла, имеющие заданную длину n. паскаль

225
290
Посмотреть ответы 2

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

КаТюНя234556
КаТюНя234556
4,8(82 оценок)
Const nx=100; var t: text; m: array[1..nx] of string; s,d: string; ch: char; var i,p,j: integer; begin assign(t,'d: \1t\sip.txt'); reset(t); while not eof(t) do begin readln(t,s); p: =1; while p> 0 do begin i: = i +1; p: =pos(' ',s); if p> 0 then m[i]: =copy(s,1,p-1)else m[i]: =s; delete(s,1,p); //writeln(m[i]); end; end; close(t); for ch: ='а' to 'я' do begin for j: =1 to i do begin if (m[j].length > 0) and (ch = uppercase(copy(m[j],1, then begin //write(ch); writeln(m[j]); m[j]: =''; end; end; end; end.
bestia1954
bestia1954
4,4(97 оценок)

Системное мышление,

Межотраслевая коммуникация,

Мультиязычность и мультикультурность,

Управление проектами,

Клиентоориентированность,

Бережливое производство,

Экологическое мышление,

Программирование/Робототехника/Искусственный интеллект,

Работа с людьми,

Работа в условиях неопределенности,

Навыки художественного творчества.

Популярно: Информатика