Решить две с "паскаля" 1)ученик выучил в первый день 5 слов , а последующие дни он учил на два слова больше чем в предыдущие через сколько дней он выучит 250 слов? 2)вычислить сумму и произведения натурального числа от 1 до 20.

1. var k,x,y: integer; begin     x: =5; k: =1;     while y< 250 do     begin       x: =x+2;       y: =y+x;       k: =k+1;     end;     writeln(k); end. 2. var s,p,x: longint; begin     for x: =1 to 20 do     begin       s: =s+x;       p: =p*x;     end;     writeln('сумма=',s,'.  произведение=',p); end.

Const   m = 6;   n = 4; var   i, j: integer;   a: array[1..m, 1..n] of integer;   b: array[1..n] of longint;   p: longint; begin   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(100) - 50;           write(a[i, j]: 4)       end;       writeln   end;   writeln('результирующий массив');   for j : = 1 to n do   begin       p : = 1;       for i : = 1 to m do p : = p * a[i, j];       b[j] : = p;       write(b[j], ' ')   end; end. тестовый пример: исходный массив   -22 -23 -14  16   -17  42 -13  19   -35    9 -47  -7   23  -9  19  25     3  -7 -31  43   15  42  40    0 результирующий массив -13548150 -23004324 201532240 0

Type   point = record       x: integer;       y: integer;   end;   line = record       p: point;       q: point;       len: double;   end; procedure linelength(var pl: line);   // вычисляет и сохраняет значение длины отрезка begin   pl.len : = sqrt(sqr(pl.q.x - pl.p.x) + sqr(pl.q.y - pl.p.y)) end; var   a, b, c, d: point;   ab, ac, ad, bc, bd, cd: line; begin   writeln('введите попарно координаты четырех точек');   readln(a.x, a.y, b.x, b.y, c.x, c.y, d.x, d.y);   with ab do   begin       p.x : = a.x; p.y : = a.y; q.x : = b.x; q.y : = b.y; linelength(ab);   end;   with ac do   begin       p.x : = a.x; p.y : = a.y; q.x : = c.x; q.y : = c.y; linelength(ac);   end;   with ad do   begin       p.x : = a.x; p.y : = a.y; q.x : = d.x; q.y : = d.y; linelength(ad);   end;   with bc do   begin       p.x : = b.x; p.y : = b.y; q.x : = c.x; q.y : = c.y; linelength(bc);   end;   with bd do   begin       p.x : = b.x; p.y : = b.y; q.x : = d.x; q.y : = d.y; linelength(bd);   end;   with cd do   begin       p.x : = c.x; p.y : = c.y; q.x : = d.x; q.y : = d.y; linelength(cd);   end;   writeln(ab.len, ' ', ac.len, ' ', ad.len, ' ', bc.len, ' ', bd.len, ' ', cd.len);   if ab.len = cd.len then begin       // ab и cd - претенденты       if ac.len = bd.len then // нашли abdc           writeln('параллелограмм abdc')       else       if ad.len = bc.len then // нашли abcd           writeln('параллелограмм abcd')   end   else   if ac.len = bd.len then begin           // ac и bd - претенденты       if ad.len = bc.len then // нашли acbd           writeln('параллелограмм acbd')           else       if ab.len = cd.len then // нашли abcd           writeln('параллелограмм acdb')   end       else   if ad.len = bc.len then begin               // ad и вс - претенденты       if ac.len = bd.len then // нашли adbc           writeln('параллелограмм adbc')               else       if ab.len = cd.len then // нашли adcb           writeln('параллелограмм adcb')   end   else       writeln('параллелограмм построить невозможно'); end. контрольный прогон: введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 параллелограмм построить невозможно введите попарно координаты четырех точек 5 1 10 4 8 9 3 6 5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453 параллелограмм abcd введите попарно координаты четырех точек 5 1 8 9 10 4 3 6 8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052 параллелограмм acbd