<span>Диана первое место</span>, сами разберетесь?
Ответ:
1)
Begin
Read(x1,y1,x2,y2);
Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));
End.
2)
Begin
Read(a,b,c);
P:=(a+b+c)/2;
Write(sqrt(p*(p-a)*(p-b)*(p-c)));
End.
Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
Монитор отображает информацию
это, короче, решение диофантова уравнения: Ax - By = N
1. наливаем в A, переливаем в B, пока B не наполнится
2. выливаем из B
3. переливаем остаток из A в B
повторяем пункты 1-3, пока уровень в A или B не станет равным N
если решений нет, то НОД (A, B) не делит N нацело, так что алгоритм зацикливается.