Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
2 апреля 2023 09:00
656
Помогите найти ошибку в коде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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое гипермедиа...
растровый файл содержащий цветной рисунок имеет объем 200 кбайт палитра из 16 цветов. какой размер может иметь рисунок в пикселях?...
Выберите истинные высказывания: 1.При имитационном моделировании проводятся опыты с компьютерными моделями 2.При имитационном моделировании проводятс...
Ограничение размера стека: 64 Задача 5: Путешествие поездом Класс, в котором учится Дима, отправляется в путешествие! и, конечно же инновационном -...
Найти среднее арифметическое чисел от 89 до 113 в паскаль...
Все предметы