Program Primer, var a, s: integer, begin S:= 0; readln(a); while a<>0 do begin if (a mod 4 = 0) and (a mod 10 = 4) then S:= S +a; readln(a); end; writeln(s); end. Какое число получится, если ввести ряд чисел
Программа на языке FreeBASIC, которая решает данную задачу, должна выглядеть следующим образом:
```basic
CLS
TYPE turnir
family AS STRING
vrema5 AS SINGLE
vrema10 AS SINGLE
vrema50 AS SINGLE
vrema100 AS SINGLE
END TYPE
DIM SHARED ch(100) AS turnir
DIM SHARED places(100) AS INTEGER
DIM SHARED n AS INTEGER
INPUT "Введите количество участников: ", n
CLS
FOR i = 1 TO n
PRINT " : "; i
INPUT "Введите фамилию: ", ch(i).family
INPUT "Введите время (сек) на дистанции 500м: ", ch(i).vrema5
INPUT "Введите время (мин., сек) на дистанции 1000м: ", m, s
ch(i).vrema10 = m * 60 + s
INPUT "Введите время (мин., сек) на дистанции 5000м: ", m, s
ch(i).vrema50 = m * 60 + s
INPUT "Введите время (мин., сек) на дистанции 10000м: ", m, s
ch(i).vrema100 = m * 60 + s
NEXT i
FOR i = 1 TO n
summa = ch(i).vrema5 + ch(i).vrema10 + ch(i).vrema50 + ch(i).vrema100
places(i) = summa
NEXT i
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF places(i) > places(j) THEN
temp = places(i)
places(i) = places(j)
places(j) = temp
tempstr = ch(i).family
ch(i).family = ch(j).family
ch(j).family = tempstr
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT ch(i).family;
PRINT " | ";
PRINT ch(i).vrema5;
PRINT " | ";
PRINT ch(i).vrema10;
PRINT " | ";
PRINT ch(i).vrema50;
PRINT " | ";
PRINT ch(i).vrema100;
PRINT " | ";
PRINT places(i);
PRINT " | ";
PRINT i;
PRINT
NEXT i
```
Программа начинается с определения пользовательского типа данных "turnir", который содержит необходимые поля для хранения информации о спортсмене.
Затем определяется массив структур "ch", в котором будет храниться информация о каждом спортсмене.
Вводится количество участников и производится цикл для ввода данных о каждом спортсмене. Время на каждой дистанции вводится отдельно и приводится к единому формату в секундах.
Затем производится расчет суммарного времени на всех дистанциях для каждого спортсмена и сохраняется в массиве "places".
После этого производится сортировка участников в порядке возрастания суммарного времени с использованием алгоритма сортировки пузырьком.
Наконец, выводится таблица соответствий фамилии спортсмена, времени на каждой дистанции, суммарному времени и занятому месту.
Чтобы определить информационный объем сообщения, нам нужно знать размер одного символа и общее количество символов в сообщении.
Поскольку у нас есть 256-символьный алфавит и сообщение содержит 3072 символа, мы должны узнать, сколько байт занимает один символ.
В данном случае нам дан алфавит, но ничего не сказано о том, сколько байт занимает один символ. Поэтому нам необходимо уточнить эту информацию.
Допустим, что каждый символ занимает 1 байт. Тогда общий размер сообщения в байтах будет равен 3072 байт.
Однако, вопрос просит найти информационный объем сообщения в килобайтах (КБ). Для этого нам нужно преобразовать размер сообщения из байтов в килобайты.
1 килобайт равен 1024 байтам, поэтому чтобы преобразовать байты в килобайты, мы делим общий размер сообщения на 1024:
3072 байта / 1024 = 3 килобайта
Таким образом, информационный объем данного сообщения составляет 3 килобайта (КБ), при условии, что каждый символ занимает 1 байт.
здравствуйте. ответ 268