//Элементы 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.
После ввода имени файла и текста необходимо два раза гадать Энтони - тогда программа остановится.
Program faktorial;
uses crt;
var n,i,k : longint;
begin
clrscr;
writeln('Vvedite chislo');readln(n);
k:=1;
for i:=1 to n do
k:=k*i;
write('factorial chisla ',n,' raven ', k);
readkey;
<span>end.</span>
3. -ABS(-КОРЕНЬ(4)) = -ABS(-2) = -2
ответ: Г) -2
5. В Power Point 2003 - Показ слайдов > Настройка анимации
ответ: А) Показ слайдов
7. Диапазон C3:E3 состоит из 3 ячеек, диапазон С3:F3 состоит из 4 ячеек ⇒ СРЗНАЧ(C3:F3) = (15+5)/4 = 5
ответ: В) 5
Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>