Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
2 апреля 2023 09:00
787
Помогите найти ошибку в коде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');
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.
Объяснение:
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.
Объяснение:
0
·
Хороший ответ
4 апреля 2023 09:00
Остались вопросы?
Еще вопросы по категории Информатика
!!!...
Как понять,что введение с клавиатура число является числом Фибоначчи.Допустим условие:если введенное с клавиатур автомобиля является числом Фибоначчи,...
Строки электронной таблицы MS EXCEL: 1. нет правильного варианта ответа; 2. обозначаются буквами русского алфавита А...Я; 3. именуются пользова...
Укажите порядок выполнения операций в логическом выражении...
Перевести шестнадцатеричное число 101011(2) в шестнадцатеричную систему счисления...