1)Напечатайте таблицу сложения для чисел от 15 до 20. Все данные расположите в несколько...

Question

1)Напечатайте таблицу сложения для чисел от 15 до 20. Все данные расположите в несколько столбцов так что бы они были видны на экране. (Паскаль)

2) Скрин =>

---

Answer 1

Program Zonik353_1;
uses crt;
const
  m=15;
  n=20;
var
  x,y:integer;
begin
  writeln('+----------------------------------+');
  writeln('|             PIFAGOR              |');
  writeln('|        таблица сложения          |');
  writeln('|           от 15 до 20            |');
  writeln('+----------------------------------+');
  write('|    ');
  for y:=m to n do
    write('| ',y:2,' ');
     writeln('| ');
  for x:=m to n do
    begin
      writeln('+----------------------------------+');
      write('| ',x:2);
      for y:=m to n do
          write(' | ',x+y:2);
        if x+y<100 then writeln(' | ')<br>                else writeln('| ');
    end;
  writeln('+----------------------------------+');
end.

Program Zonik353_2;
uses crt;
var
  s,k,a:integer;
  sr:real;
begin
  s:=0;
  k:=0;
  a:=10;
  repeat
    s:=s+a;
    k:=k+1;
    a:=a+5;
  until a>99;
  sr:=k*k+s/2;
  writeln ('Sr: ',sr:0:5);
  end.

Answer 2

1)

const

n=7;

var

a:array [1..n,1..n] of integer;

i,j,k:Integer;

begin

k:=15; 

for i:=1 to n-1 do begin

a[1,i+1]:=k;

a[i+1,1]:=k;

k:=k+1;

end;

for i:=2 to n do 

for j:=2 to n do  a[i,j]:=a[i,1]+a[1,j];

for i:=1 to n do begin

for j:=1 to n do write (a[i,j]:4);

writeln;

end;

readln;

end.

2)

var

s,k,a:integer;

sr:real;

begin

s:=0;

k:=0;

a:=10;

repeat

s:=s+a;

k:=k+1;

a:=a+5;

until a>99;

sr:=k*k+s/2;

writeln ('Sr: ',sr:0:5);

end.