Программа на языке pascal: в текстовом файле найти строку, содержащую слово с наибольшим числом гласных букв. вычислить произведение чисел в этой строке. (строк несколько) например: (12 строка): aba cda 34 решение: (№строки) (слово с наиб.кол-вом гласн.) (произведение чисел в строке) буду признателен

208

362

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

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

opd23

Информатика

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

//pascal //файл filetext.txt должен быть в папке с программой const vowels = ['e', 'u', 'i', 'o', 'a', 'y', 'e', 'u', 'i', 'o', 'a', 'y']; var t: text; s: char; n, min, mult, mult2, count, count2: integer; begin assign(t, ' filetext.txt'); reset(t); n : = 0; min : = 0; mult : = 1; count : = 0; while not eof(t) do begin count : = count + 1; while not eoln(t) do begin read(t, s); if s in vowels then inc(n); if s in ['0' .. '9'] then mult : = mult * (ord(s) - 48); end; if n > min then begin min : = n; mult2 : = mult; mult : = 1; count2 : = count; end; readln(t); n : = 0; mult : = 1; end; close(t); write(count2, ' строка. '); write('произведение = ', mult2, '. '); writeln('гласных = ', min); readln; end.