2
1 - не соответствует второму правилу
3 - 19 не может быть суммой однозначных чисел
4 - 21 аналогично
<span><span>const n=3;
type student=record
fam:string[20];
year:integer;
sex:string[1];
kurs:integer;
sport:string[30];
end;
var x:array[1..n] of student; i,j:integer;
p:student;
begin
for i:=1 to n do
with x[i] do begin
writeln('сведенья о ',i,' студенте:');
writeln('фамилия: ');
read(fam);
writeln('год рождения: ');
read(year);
writeln('пол( м или ж ): ');
read(sex);
writeln('курс: ');
read(kurs);
writeln('вид спорта: ');
read(sport);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i].fam>x[j].fam then begin
p:=x[i];
x[i]:=x[j];
x[j]:=p;
end;
for i:=1 to n do begin
with x[i] do
if (sex='ж') then writeln('Фамилия студентки: ',fam,' Курс: ',kurs,' Вид спорта: ',sport);
end;
end.</span></span>
Ответ: 1-Г, 2-В, 3-Д, 4-А, 5-Б
Объяснения.
1. Со значением х=1 входим в цикл, который должен выполняться, пока х меньше 10. Но х в теле цикла не изменяется, поэтому цикл будет бесконечным.
2. Со значением х=1 входим в цикл, который должен выполняться, пока х равен 1. В теле цикла х наращивается на 1, поэтому цикл даже второй раз не будет выполняться.
3. Конструкция 0<x<10 недопустима синтаксически.
4. Со значением х=1 пытаемся войти в цикл. В заголовке указано, что цикл выполняется, пока х отрицательный. Следовательно, цикл не будет выполняться вообще.
5. Со значением х=0 входим в цикл, который должен выполняться, пока х не превысит 5. В теле цикла х наращивается на 1, т.е. х будет принимать значения 1,2,3,4,5,6 и при х=6 цикл завершится. Получается, что тело цикла выполнится 6 раз.
