Uses crt;var i,j,k:0..9; kol:integer;beginkol:=0;For i:=1 to 9 do For j:=0 to 9 do For k:=0 to 9 do if (i+j+k)=10 then inc(kol);writeln('Result: ',kol);end.
var
i, n: integer;
begin
readln(n);
for i := 1 to 10 do begin
writeln(n,' x ', i, ' = ', n*i);
end;
end.
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
Решение во вложении. все забито через формулы, поэтому если поменять количество почты или вес почты, то результаты автоматически поменяются.