Регистрация Спросить otvet5GPT
вика3879
25.01.2022 17:20
Информатика
Есть ответ 👍

На языке pascal напишите программу, которая будет подсчитывать количество двоек, четвёрок и пятёрок, полученных за контрольную работу по при условии если в классе 32 человека. исходные данные вводятся с клавиатуры с соблюдением правил дружественного интерфейса.

165
242
Посмотреть ответы 3

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

nikakoheleva14
nikakoheleva14
4,7(1 оценок)
Var   a, i, k2, k4, k5, c, d, n: integer; begin   write('введите количество учеников в классе: '); readln(n);   if (n = 32) then   begin       c : = 1;       d : = 5;       writeln('введите оценки учеников: ');       k2 : = 0;       k4 : = 0;       k5 : = 0;       i : = 1;       while i < = n do       begin           write('оценка ученика №',i,': '); readln(a);           if (c < = a)and(a < = d) then           begin               case a of                   2: k2 : = k2+1;                   4: k4 : = k4+1;                   5: k5 : = k5+1;               end;               i : = i+1;           end           else               writeln('неприемлимое значение! допустимые значения: [',c,'..',d,']');       end;       writeln('количество двоек: ',k2);       writeln('количество четвёрок: ',k4);       writeln('количество пятёрок: ',k5);   end   else       writeln('в классе не 32 ученика'); end.
kanumah2
kanumah2
4,6(73 оценок)
Ответ в файле: vvvvvvvvvvvvvvvv
hanbek81
hanbek81
4,4(32 оценок)
Program j7; var  a: array of char;   n: integer;   i: integer;   cnt: integer; begin  writeln('введите размер массива: ');   readln(n);   setlength(a,n);   for i: = 0 to n-1 do    begin      write('символ № ',i+1,' ');       readln(a[i]); //заполнение массива    end;   for i: = 0 to n-1 do      begin               write(a[i]+' '); //вывод массива (по желанию)    end;             writeln();   cnt: =0;   for i: = 0 to n-1 do    begin      if a[i] in ['a'..'z'] then        begin          inc(cnt);       //подсчет маленьких латинских букв        end;     end;   writeln('количество маленьких латинских букв: ',cnt);   write('нажмите клавишу enter для ');   readln(); end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS