Программа:
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.
Я сто лет не делал блок-схемы, но должно быть правильно.
Я не проверял работает ли программа правильно, но она работает ошибки не выдает. Если что не правильно сможешь подправить.
Задача сделана на языке паскаль, при
Оформление сделана как для студенческой задачи
Если есть вопросы пиши в личку