Вот задачка. Там и про таблицу, и опять же непонятно - какую сумму чисел(как и произведение в другой) нужно найти? Просто числа от 6 до 10? то есть 6+7+8+9+10? Или что?
Code
program umnozh;
uses crt;
const n = 10;
var t: array [0..100,0..100] of integer;
i,j,p,s: integer;
procedure table; {sozdanie tablitsyi umnozhenija}
var i,j:integer;
begin
for j:=1 to n+1 do
t[1,j]:=j-1;
for i:=2 to n+1 do
t[i,1]:=i-1;
i:=0;
j:=0;
for i:=2 to n+1 do
for j:=2 to n+1 do
t[i,j]:=(i-1)*(j-1);
for i:=1 to n do
begin
for j:=1 to n do
write(t[i,j]:3,' ');
writeln;
end;
end;
Begin
clrscr;
table;
writeln;
write('Proizvedenie ot 2 do 7: ');
p:=1;
for i:=2 to 7 do p:=p*i;
write(p);
writeln;
write('Summa ot 6 do 10: ');
s:=0;
for i:=6 to 10 do s:=s+i;
write(s);
writeln;
readkey;
End.
