// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(1,ReadInteger('n =')));
end.
Ответ:
1)
1 поколение ламповый машины
2 поколение вычислительные системы на большой интегральной схеме
3 поколение миникомпьютеры на интегральных схемах
4 поколение Исскуственеый интелект
2)
(1) абак
(2) цифровой компьютер
(3) аналоговый компьютер
3)
(1) пятого поколения
(2) Исскуственеый
ну всё
9) B4(16) = 10110100(2), 46(8) = 100110(2)
10110100(2) + 100110(2) = 11011010(2)
10) не видно, край листа обрезан.
<span>Описывается список с полями согласно заданию
type
student = Record
fam: String;
inn: string;
Year: integer;
god_p: integer;
kurs: 1..5;
gruppa: string;
b1, b2, b3: 1..5;
End;
Объявляются необходимые переменные и массив с типом записи</span>
<span>var
spisok: Array [1..N] Of student;
b, a: string;
i, j, k1: Integer;
И заполняется от 1 до N (N=5 установлена константа)
for i := 1 To N Do // идем от 1 до N и заполняем список
with spisok[i] Do
begin
Writeln('Введите фамилию');Readln(fam);
{......}
end;
Потом обрабатывается согласно заданию по вариантам
Скорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО)
Затем выводится 3 фамилии самых молодых
</span>
<span>for i := 1 to 3 do
begin
write(spisok[i].fam);
writeln;
end;</span>
Триггер хранит один бит информации.
32 триггера- это 32 бита
Байт состоит из восьми бит. Значит, в этих триггерах можно хранить
32 / 8 = 4 байта информации.
Ответ: 4 байта