Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 03:20
601
Помогите найти ошибку в коде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
·
Хороший ответ
5 апреля 2023 03:20
Остались вопросы?
Еще вопросы по категории Информатика
Помогите, пожалуйста, решить эту задачу на языке программирования PYTHON. Задача: По данному натуральном n вычислите сумму 1²+2²+3²+...+n². Формат в...
Имеется текстовый документ, содержащий 20 страниц, полностью заполненных текстом таким образом, что на каждой странице ровно 30 строк по 40 символов в...
Пожалуйста, от этого зависит моя оценка Что значит "Ошибка инициализации (0х0175dcbb) И как устранить проблему? на Windows...
Вопрос: Дискретная форма – это ... Выберите один из 3 вариантов ответа: 1) форма представления, при которой информация преподнесена в виде отдельны...
Как заполнять эту таблицу? Ответы есть, но я не понимаю, как записывать. Задание: Сравните "бумажную" и "компьютерную" технологии создания текстовы...