Question

Помогите найти ошибку в коде

var a,b,c,d,f,k,h:integer;
begin
wtiteln('В каком веке было введено право городов избирать органы власти?');
wtiteln('в 11-12 веках');
wtiteln('1.В 13 веке');
wtiteln('2. в 11-12 веках');
wtiteln('3.в 5 веке');
readln(a);
if a=2 then writeln ('молодец!');
k:=k+1;
end
writeln('на ком основывалась светская власть в Средневековье?');
writeln('короли');
writeln('1.короли');
writeln('2. Церковь');
writeln('3. Крестьяне');
readln(b);
if b=1 then writeln ('молодец!');
k:=k+1
end.
else wtiteln('Неправильно');
wtiteln('какую власть имел орден св.Доминика?');
wtiteln('преследовать еретиков');
wtiteln('1.не подчинятся церкви ');
wtiteln('2. преследовать еретиков');
wtiteln('3. вести завоевательные походы');
readln(c);
if c=2 then writeln ('молодец!');
k:=k+1
end.
else wtiteln('Неправильно');

wtiteln('какие государства были образованы на завоеванных территориях во время крестовых походов?');
wtiteln(' Иерусалимское королевство, Княжество Антиохия');
wtiteln('1.Финикия ');
wtiteln('2. Иерусалимское королевство, Княжество Антиохия');
wtiteln('3. королевство Крестоносцев');
readln(d);
if d=2 then writeln ('молодец!');
k:=k+1
end.
else wtiteln('Неправильно');

wtiteln('Что было важнейшим орудием Церкви против еретиков?');
wtiteln('Инквизиция');
wtiteln('1.Законы ');
wtiteln('2. Вера');
wtiteln('3. Инквизиция');
readln(k);
if k=3 then writeln ('молодец!');
k:=k+1
end.
else wtiteln('Неправильно');

wtiteln('Кто такой Фома Аквинский?');
wtiteln('Теолог признанный церковью');
wtiteln('1.Теолог ');
wtiteln('2. Еретик');
wtiteln('3. Церковный служитель');
readln(k);
if k=3 then writeln ('молодец!');
k:=k+1
end.
else wtiteln('Неправильно');
if k=6 then writeln ('Вы набрали ',k,' баллов , ваша оценка 5');
if k=5 then writeln ('Вы набрали ',k,' баллов , ваша оценка 4');
if k=4 then writeln ('Вы набрали ',k,' баллов , ваша оценка 3');
if k=3 then writeln ('Вы набрали ',k,' баллов , ваша оценка 2');
if k=2 then writeln ('Вы набрали ',k,' баллов , ваша оценка 1');
if k=1 then writeln ('Вы набрали ',k,' баллов , ваша оценка 0');

Answer 1

Ответ:

var a,b,c,d,f,k,h:integer;

begin

writeln('В каком веке было введено право городов избирать органы власти?');

writeln('в 11-12 веках');

writeln('1.В 13 веке');

writeln('2. в 11-12 веках');

writeln('3.в 5 веке');

readln(a);

if a=2 then writeln ('молодец!');

k:=k+1;

writeln('на ком основывалась светская власть в Средневековье?');

writeln('короли');

writeln('1.короли');

writeln('2. Церковь');

writeln('3. Крестьяне');

readln(b);

if b=1 then writeln ('молодец!')

else writeln('Неправильно');

writeln('какую власть имел орден св.Доминика?');

writeln('преследовать еретиков');

writeln('1.не подчинятся церкви ');

writeln('2. преследовать еретиков');

writeln('3. вести завоевательные походы');

readln(c);

if c=2 then writeln ('молодец!')

else writeln('Неправильно');

writeln('какие государства были образованы на завоеванных территориях во время крестовых походов?');

writeln(' Иерусалимское королевство, Княжество Антиохия');

writeln('1.Финикия ');

writeln('2. Иерусалимское королевство, Княжество Антиохия');

writeln('3. королевство Крестоносцев');

readln(d);

if d=2 then writeln ('молодец!')

else writeln('Неправильно');

writeln('Что было важнейшим орудием Церкви против еретиков?');

writeln('Инквизиция');

writeln('1.Законы ');

writeln('2. Вера');

writeln('3. Инквизиция');

readln(k);

if k=3 then writeln ('молодец!')

else writeln('Неправильно');

writeln('Кто такой Фома Аквинский?');

writeln('Теолог признанный церковью');

writeln('1.Теолог ');

writeln('2. Еретик');

writeln('3. Церковный служитель');

readln(k);

if k=3 then writeln ('молодец!')

else writeln('Неправильно');

if k=6 then writeln ('Вы набрали ',k,' баллов , ваша оценка 5');

if k=5 then writeln ('Вы набрали ',k,' баллов , ваша оценка 4');

if k=4 then writeln ('Вы набрали ',k,' баллов , ваша оценка 3');

if k=3 then writeln ('Вы набрали ',k,' баллов , ваша оценка 2');

if k=2 then writeln ('Вы набрали ',k,' баллов , ваша оценка 1');

if k=1 then writeln ('Вы набрали ',k,' баллов , ваша оценка 0');

end.

Объяснение: