Вычислить средний балл студентов группы. Если известны оценки каждого по трем предметам. И вывести список тех, у кого средний бал выше с
Условие Задачи:
Дан текстовый файл. Найти слова, заканчивающие на of.
Program PascalGuru; Var f:text; {описание переменных} s,x:string; p:integer;
begin Assign( f ,'file3.txt'); reset(f); {подключение файла для чтения}
while not eof(f) do {считывание всего файла до конца} begin readln(f,s); {считывание текущей строки} p:=pos(' ',s); {позиция пробела} repeat {ничало разбития строки на слова} x:=copy(s,1,p-1); {текущее слово} if pos('of',x)=length(x)-1 then writeln(x); {выводим слово по условию} delete(s,1,p); {удаляем слово со строки} p:=pos(' ',s); {следующая позиция пробела} until p=0; {конец разбития строки на слова} if pos('of',s)=length(s)-1 then writeln(s); {проверка последнего слова на условие}