//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.
Открываете ворд → вставка → фигуры → выбираете нужную фигуру
-------------------------
Конечно, все зависит от версии, но метод вставки фигур примерно одинаковый.
Скриншоты помогут
В предложении 70 символов.
70*16=1120(бит)
8 бит = 1 байт
1120/8=140(байт)
Ответ: 3) 140 байт.
Миша разрабатывает сайты -> пользуется HTML (и это не язык программирования, а язык разметки! Косяк авторов задачи)
Лена пишет макросы -> Visual Basic for Applications
Остались Prolog (язык логического программирования) и Pascal (структурного). Таня не умеет работать с Паскалем, значит, знает Пролог. А Серёже остается Паскаль.