13. В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество , разделённые одним пробелом:

<Фамилия> <Имя> <Количество >

Вывести фамилии и имена тех учеников, которые получили больше

14. В задаче 13 добавить к списку нумерацию, например:

1) Иванов Вася

2) Петров Петя

15. В задаче 14 сократить имя до одной буквы и поставить перед фамилией:

1) В. Иванов

2) П. Петров

*17. В задаче 15 отсортировать список по убыванию полученного (вывести в выходной файл).
var

fin, fout: text;

s: string;

f, im, b: array[1..100] of string;

s1, i, n, x, code: integer;

begin

assign(fin, 'input.txt');

reset(fin);

n := 0;

while not eof(fin) do

begin

readln(fin, s);

inc(n);

f[n] := copy(s, 1, pos(' ', s));

delete(s, 1, pos(' ', s));

im[n] := copy(s, 1, pos(' ', s));

delete(s, 1, pos(' ', s));

b[n] := copy(s, 1, 3);

s:= s1 + ')' + im[1] + '.' + f[n];

end;

close(fin);

assign(fout, 'output.txt');

rewrite(fout);

for i := 1 downto n do

begin

val(b[n], x, code);

if x >= 80 then

writeln(fout, s);

end;

close(fout);

end.

203

406

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

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

natalimironenko

Информатика

4,8(64 оценок)

это есте в ггле я знаю ты справишся

Apple008

Информатика

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

Образной человек.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.