Решить в паскале ! известна скорость зайца, скорость собаки (км/час), расстояние от зайца до леса и расстояние между ними (км догонит ли собака зайца? известен периметр квадрата p. войдет ли круг с длиной окружности l в этот квадрат? арбуз считается спелым, если его плотность меньше, чем 0.85 г/см. определить, является ли арбуз спелым, если известна его масса и длина большей окружности.

Это про зайца var r,d,s,m,a: real; begin; write('введите скорость зайца '); readln(r); write('введите скорость собаки '); readln(d); write('введите расстояние до леса '); readln(s); write('введите расстояние между ними '); readln(m); a: =s/r; if (d*a)> =(m+s)  then writeln('собака догонит зайца') else writeln('собака не догонит зайца'); end.про кругvar p,d,l: real; begin; write('введите периметр квадрата '); readln(p); p: =p/4; write('введите лину окружности '); readln(l); d: =(l/pi); if r< =pthen writeln('круг войдёт в квадрат')else writeln('круг не войдёт в квадрат'); end.

ответ: 21.

Объяснение:

Проходы цикла

1.  i = 2; a = 12. Так как 2 < 5, заходим в цикл и прибавляем к переменной "а" и "i", то что сказано в цикле. (a = a + i) следовательно a = 12 + 2 =14; (i = i + 1) следовательно i = 2 + 1 = 3;

2.  Теперь i = 3; a = 14. Так как 3 < 5, заходим в цикл и прибавляем к переменной "а" и "i", то что сказано в цикле. (a = a + i) следовательно a = 14 + 3 =17; (i = i + 1) следовательно i = 3 + 1 = 4;

3.  Теперь i = 4; a = 17. Так как 4 < 5, заходим в цикл и прибавляем к переменной "а" и "i", то что сказано в цикле. (a = a + i) следовательно a = 17 + 4 =21; (i = i + 1) следовательно i = 4 + 1 = 5;

4.  Теперь i = 5; a = 21. Так как 5 = 5, мы больше НЕ заходим в цикл. Переменные остаются i = 5; a = 21.

Program lolka; procedure drobchast(x,y: integer; var z: integer); begin              z: =x div y;                 writeln('ответ = ', z); end; var    x,y,z: integer; begin                writeln('введите число, которое хотите поделить');                 readln(x);               writeln('на что поделить? ');                 readln(y);               drobchast(x,y,z); end.