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

Втаблице dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (dat[1] — количество голосов, поданных за первого исполнителя, dat[2] — за второго и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль алг нач целтаб dat[1: 10] цел к, m dat[1] : = 16 dat[2] : = 20 dat[3] : = 20 dat[4] : = 41 dat[5] : = 14 dat[6] : = 21 dat[7] : = 28 dat[8] : = 12 dat[9] : = 15 dat[10] : = 35 m : = 0 нц для к от 1 до 10 если dat[к] < 25 то m : = m+1 все кц вывод m кон dim dat(10) as integer dim k,m as integer dat(1) = 16: dat(2) = 20 dat(3) = 20: dat(4) = 41 dat(5) = 14: dat(6) = 21 dat(7) = 28: dat(8) = 12 dat(9) = 15: dat(10) = 35 m = 0 for k : = 1 to 10 if dat(k) < 25 then m =m+1 endif next k print m var k, m: integer; dat: of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8] : = 12; dat[9] : = 15; dat[10] : = 35; m : = 0; for k : = 1 to 10 do if dat[k] < 25 then begin m : = m+1 end; writeln(m); end.

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