Программа:
type Student=record
FIO:string;
year:integer;
obj:string;
mark:integer;
end;
var
i:integer;
objec:string;
s: array [1..3] of Student;
BEGIN
// 1-ый студент
s[1].FIO:= 'Петров П.П.';
s[1].mark:= 3;
s[1].obj:= 'Математика';
s[1].year:= 1997;
// 2-ой студент
s[2].FIO:= 'Иванов И.И.';
s[2].mark:= 5;
s[2].obj:= 'Математика';
s[2].year:= 1999;
// 3-ий студент
s[3].FIO:= 'Сидоров С.С.';
s[3].mark:= 5;
s[3].obj:= 'Математика';
s[3].year:= 1998;
write('Введите предмет: ');
readln(objec);
writeln('Список студентов по заданным параметрам:');
for i:=1 to 3 do
if (s[i].obj = objec) and (s[i].mark = 5) then
writeln(s[i].FIO, ' - ' , s[i].year)
END.
Объяснение:
var i,s:integer;
begin
i:=10;s:=0;
for i:=10 to 99 do
if i mod 2<>0 then s:=s+i;
writeln('Сумма нечетных 2-значных чисел(for)',s);
readln;
i:=10;s:=0;
while i<=99 do
begin
if i mod 2<>0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма нечетных 2-значных чисел(while)',s);
readln;
i:=10;s:=0;
repeat
if i mod 2<>0 then s:=s+i;
i:=i+1;
until i>99 ;
writeln('Сумма нечетных 2-значных чисел(repeat)',s);
readln;
end.