В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Nurik271100
Nurik271100
13.09.2022 06:33 •  Информатика

В классе было 20 учеников. Известно что за контрольную работу по информатике они получили отметки 3,4 и 5.Составьте программу, подсчитывающую: 1)число отметок 5,полученных учениками за контрольную работу;
2)Средний , полученный учениками за контрольную работу;
3)Каких отметок было получено большк всего. ​

Показать ответ
Ответ:
vdhfhsbh
vdhfhsbh
09.02.2021 16:24

var a,k3,k4,k5,i: integer;

cr:real;

begin

 k3:=0;

 k4:=0;

 k5 := 0;

 cr:=0;

 for i:=1 to 20 do

 begin

   writeln('введите оценку ученика');

   readln (a);

   cr:=cr+a;

   if a mod 3=0 then k3:=k3+1 else if a mod 4= 0 then k4:=k4+1 else k5:=k5+1;

     end;

 writeln('число отметок 5,полученных учениками за контрольную работу:',k5);

 cr:=cr/20;

 writeln('Средний , полученный учениками за контрольную работу:',cr);

 if (k5>k4) and (k5>k3) then writeln('пятерок больше всего')  

 else if (k4>k3) then writeln('четверок больше всего')

 else writeln('троек больше всего')

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота