Сформировать файл записей (pascal)

[feeras]

Сформировать файл записей «EXAM» по результатам сдачи сессии (три экзамена) группой студентов. Поля записи о каждом студенте: Фамилия N1 N2 N3, где N1, N2, N3 – оценки. Вывести фамилии студентов, которые имеют двойки по двум и более предметам.

#program exam;
#uses crt;
#type
#student=record
#fam:string[20];
#n1:integer;
#n2:integer;
#n3:integer;
#end;
#const
#n = 3;
#var
#f:file of student;
#ved:student;
#begin
#clrscr;
#assign(f,'EXAM');
#rewrite(f);
#ved.fam:='Vasiliev';
#ved.n1:=5;
#ved.n2:=5;
#ved.n3:=5;
#write(f,ved);
#ved.fam:='Habibulin';
#ved.n1:=5;
#ved.n2:=5;
#ved.n3:=4;
#write(f,ved);
#ved.fam:='Pupkin';
#ved.n1:=2;
#ved.n2:=2;
#ved.n3:=3;
#write(f,ved);
#close(f);
#reset(f);
#while not eof(f) do
#begin
#read(f,ved);
#if (ved.n1<=3) and (ved.n2<=3) and (ved.n3<=3) then writeln('На двойки учатся:',ved.fam);
#end;
#close(f);
#readln;
#end.

Правильно?

[spl1nter]

#if (ved.n1<=3) and (ved.n2<=3) and (ved.n3<=3) then writeln('На двойки учатся:',ved.fam);

Это условие проверяет на 3ки и ниже. Нужно
(ved.n1=2) and (ved.n2=2) and (ved.n3=2) и проверить равенство 2ке:
(1 и 2) оценки, (1 и 3) и (2 и 3)

[feeras]

Сообщение от spl1nter

Это условие проверяет на 3ки и ниже. Нужно
(ved.n1=2) and (ved.n2=2) and (ved.n3=2) и проверить равенство 2ке:
(1 и 2) оценки, (1 и 3) и (2 и 3)

Первое понятно, а что со вторым? Я имею ввиду проверить равенство: это через ЕСЛИ?

[Alex Cones]

Правильно?

С первого взгляда вообще показалось, что на Си. Используйте [CОDE] [/CОDE] или кнопку

[IT-man]

С первого взгляда вообще показалось, что на Си.

Просто копипаст с какого-то форума))))) и не отредактировано даже)