subbotina17

15.02.2020 16:15

Информатика

Есть ответ 👍

Исправьте ошибки чтобы запустилась программа в паскале
program Number_of_mounth
var
begin
month:byte;
write('Введите номер месяца:');
readln(month);
if(month<1)or(month>12)then
writeln('Вы ввели неправильный номер месяца!')
else
begin
write('Названиемесяца:');
case month of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
write('Количество дней в месяце:');
case month of
1,3,5,7,8,10,12:writeln('31');
4,6,9,11:writeln('30');
2:writeln('28 или 29');
end;
write('Времягода:');
case month of
1,2,12:writeln('Зима');
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
end;
if not (month=1)then writeln('Этонепервыймесяцвгоду');
if not (month=12)then writeln('Этонепоследниймесяцвгоду');
end;
end.

254

334

Посмотреть ответы 2

Ответы на вопрос:

Dimasgta7

Информатика

4,4(79 оценок)

program Number_of_mounth;

var month:byte;

begin

write('Введите номер месяца:');

readln(month);

if(month<1)or(month>12)then

writeln('Вы ввели неправильный номер месяца!')

else

begin

write('Название месяца:');

case month of

1:writeln('Январь');

2:writeln('Февраль');

3:writeln('Март');

4:writeln('Апрель');

5:writeln('Май');

6:writeln('Июнь');

7:writeln('Июль');

8:writeln('Август');

9:writeln('Сентябрь');

10:writeln('Октябрь');

11:writeln('Ноябрь');

12:writeln('Декабрь');

end;

write('Количество дней в месяце:');

case month of

1,3,5,7,8,10,12:writeln('31');

4,6,9,11:writeln('30');

2:writeln('28 или 29');

end;

write('Времягода:');

case month of

1,2,12:writeln('Зима');

3,4,5:writeln('Весна');

6,7,8:writeln('Лето');

9,10,11:writeln('Осень');

end;

if not (month=1)then writeln('Это не первый месяц в году');

if not (month=12)then writeln('Это не последний месяц в году');

end;

Объяснение:

Ошибка была в объявлении переменой а именно в начале блока бегин к переменой month задавался тип byte, это делает до начала блока в Var

queensss

Информатика

4,4(39 оценок)

ответ: x=12 y=0

x=6+6+4+0-4+0+0+2+2-4=12

y=0+0+0+4+0-4+4+2-2-4=0

вот так у меня получилось

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.