Если microsoft office 2003 года, то ppt, а если 2007, то pptх
Объяснение:
1060 значков ))
это если они будут среднего размера
//Элементы 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.
var i,s:integer; //создаем целочисленные переменные i и s
begin //начало программы
s:=0; //задаём начальное значение переменной s
for i:=1 to 30 do s:=s+i; //создаём счётчик for от 1 до 30 с последующим суммированием в переменную s
writeln(s); //печатаем переменную s
end. //конец программы
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>