Ребята помогите пожалуйста!ОЧень срочно надо ) Задани 13 ,14,15,16

Во вложениях )

1

Ответы и объяснения

2013-01-31T20:19:06+04:00

13)

var
i, j : integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do write (i + j, ' ');
writeln;
end;
for i := 1 to 9 do
begin
for j := 1 to 9 do write (i + j, ' ');
writeln;
end;
end.

 

Извиняюсь, что нет 14)

 

15)

var
n, s, f, i, sum : integer;
begin
read (n);
sum := 0;
s := 1;
f := 1;
for i := 2 to n do
s := s * 10;
for i := 1 to n do
f := f * 10;
for i := s to f - 1 do
sum := sum + i;
writeln (sum);
end.

 

16)

var
n, s, f, i, sum, r : integer;
begin
read (n, r);
sum := 0;
s := 1;
f := 1;
for i := 2 to n do
s := s * 10;
for i := 1 to n do
f := f * 10;
for i := s to f - 1 do
if i mod r = 0 then
sum := sum + i;
writeln (sum);
end.