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

Втаблице 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.

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