Вывести фамилии всех футболистов которые забили больше двух голов. паскаль

220

490

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

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

рай34

Информатика

4,6(13 оценок)

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая: program futbol; var fio: array [1..25] of string; gol: array [1..25] of integer; i,j: integer; f: string; begin writeln ('введите фамилии игроков, забивших голы'); writeln ('окончание ввода - пустая строка'); j: =0; repeat readln(f) newfio: =true; for i: = 1 to j do begin if fio[i]=f then begin gol[i]=gol[i]+1; newfio: =not newfio; end; if newfio then begin j: =j+1; fio[j]: =f; end; while not f=''; for i: = 1 to j do begin if gol[i]> 2 then writeln fio[i]; end; end.

vsevolod2013

Информатика

4,5(54 оценок)

Инф.объем = частота * время * разрядность * кол-во дорожек 1 мин = 60 сек дорожка 1 (т.к. в условии не сказано что их несколько) 1,3 мб = 1,3*1024*1024*8 бит 1,3*1024*1024*8 = частота * 60 * 8 * 1 1,3*1024*256 = частота * 15 частота =1,3*1024*256 / 15 осталось посчитать