1. создайте файл целых чисел f. числа считываются с клавиатуры. признаком конца ввода является число 9999. 2. создайте файл информации по итогам сессии result.dat. для каждой группы каждого курса в файл заносится информация(количество курсов и групп на курсе фиксировано, сами номера курсов и групп в записи не хранятся): количество студентов в группе; количество допущенных к сессии; количество сдавших на «отлично»; количество сдавших на «хорошо» и «удовлетворительно»; количество получивших «неудовлетворительно».

269

294

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

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

Ivan212144

Информатика

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

Var a: integer; begin while (true) do begin readln(a); if (a = 9999) then break else system.io.file.appendalltext('f.txt', inttostr(a) + system.environment.newline); end; end.===============const e = 5; //кол-во курсов и группvar a, b, c, d: integer; f: string; begin for a : = 1 to e do begin writeln('================'); writeln('группа №', a); writeln(''); writeln('сколько обучающихся сдали на "отлично"? '); readln(b); f += inttostr(b) + ' - '; c += b; writeln('сколько обучающихся сдали на "хорошо"? '); readln(b); f += inttostr(b) + ' - '; c += b; writeln('сколько обучающихся сдали на "удовлетворительно"? '); readln(b); f += inttostr(b) + ' - '; c += b; writeln('сколько обучающихся сдали на "неудовлетворительно"? '); readln(b); f += inttostr(b); c += b; f : = inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f; system.io.file.appendalltext('result.dat', f + system.environment.newline); end; end.