Надо программировать в pascal abc,не могу придумать ! : найти количество хорошистов в сельской школе.если известно,что в ней 15 классов.количество хорошистов в каждом классе вводятся с клавиатуры.

252

479

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

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

nikneem159

Информатика

4,8(23 оценок)

Program eewtew; type human = class public q: integer; // 1 класс e: integer; // 2 класс r: integer; // 3 класс t: integer; // 4 класс y: integer // 5 класс u: integer; // 6 класс i: integer; // 7 класс o: integer; // 8 класс p: integer; // 9 класс a: integer; // 10 класс s: integer; // 11 класс d: integer; // 12 класс f: integer; // 13 класс g: integer; // 14 класс j: integer; // 15 класс end; var h: human; begin h: = new human; writeln('введите кол-во хорошистов в 1 классе'); readln(h.q); writeln('введите кол-во хорошистов в 2 классе'); readln(h.e); writeln('введите кол-во хорошистов в 3 классе'); readln(h.r); writeln('введите кол-во хорошистов в 4 классе'); readln(h.t); writeln('введите кол-во хорошистов в 5 классе'); readln(h.y); writeln('введите кол-во хорошистов в 6 классе'); readln(h.u); writeln('введите кол-во хорошистов в 7 классе'); readln(h.i); writeln('введите кол-во хорошистов в 8 классе'); readln(h.o); writeln('введите кол-во хорошистов в 9 классе'); readln(h.p); writeln('введите кол-во хорошистов в 10 классе'); readln(h.a); writeln('введите кол-во хорошистов в 11 классе'); readln(h.s); writeln('введите кол-во хорошистов в 12 классе'); readln(h.d); writeln('введите кол-во хорошистов в 13 классе'); readln(h.f); writeln('введите кол-во хорошистов в 14 классе'); readln(h.g); writeln('введите кол-во хорошистов в 15 классе'); readln(h.j); writeln('мы сорали информацию о классах'); writeln('в 1 классе: ', h.q, ' хорошист(а/ов)'); writeln('в 2 классе: ', h.e, ' хорошист(а/ов)'); writeln('в 3 классе: ', h.r, ' хорошист(а/ов)'); writeln('в 4 классе: ', h.t, ' хорошист(а/ов)'); writeln('в 5 классе: ', h.y, ' хорошист(а/ов)'); writeln('в 6 классе: ', h.u, ' хорошист(а/ов)'); writeln('в 7 классе: ', h.i, ' хорошист(а/ов)'); writeln('в 8 классе: ', h.o, ' хорошист(а/ов)'); writeln('в 9 классе: ', h.p, ' хорошист(а/ов)'); writeln('в 10 классе: ', h.a, ' хорошист(а/ов)'); writeln('в 11 классе: ', h.s, ' хорошист(а/ов)'); writeln('в 12 классе: ', h.d, ' хорошист(а/ов)'); writeln('в 13 классе: ', h.f, ' хорошист(а/ов)'); writeln('в 14 классе: ', h.g, ' хорошист(а/ов)'); writeln('в 15 классе: ', h.j, ' хорошист(а/ов)'); end.

meripet2005p08qlb

Информатика

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

крч. к- кол-во раз (повторение), x не будет 4 раза положительным,

s будет ровно 6

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

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

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

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

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

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

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

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

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

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