<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
Print(0.5 * Sqrt(2 * b * b * +2 * c * c - a * a))
end.
<h2>Пример</h2><h3>Введите a, b, c: 4.5 5.2 3.12</h3><h3>16.0672236556289</h3>
Так как число ребят, имеющих «тройки» по математике и физике, равно 7, то число учеников, имеющих только две «тройки» - по математике и по физике, равно 7-5=2. Тогда 17-4-5-2=6 учеников имеют две «тройки» - по математике и по русскому языку, а 22-5-2-11=4 ученика только две «тройки» - по физике и по русскому языку. В этом случае без «тройки» учится 40-22-4-6-4=4 ученика. А имеют «тройки» по двум предметам из трех 6+2+4=12 человек.
Program MinDist;
{$APPTYPE CONSOLE}
uses sysutils;
const
k = 100;
ax = 10;
ay = -2;
var
T: array[1..k, 1..2] of integer;
r, rmin, i, n: integer;
begin
write('Введите число точек на плоскости: ');
readln(n);
rmin := 32767;
Randomize;
writeln('Исходные данные:');
for i := 1 to n do
begin
T[i, 1] := Random(51) - 25;
T[i, 2] := Random(51) - 25;
r := sqr(T[i, 1] - ax) + sqr(T[i, 2] - ay);
if rmin > r then rmin := r;
writeln('(', T[i, 1], ',', T[i, 2], ')')
end;
writeln(#13#10, 'Минимальное расстояние от А(', ax, ',', ay, ') равно: ', sqrt(rmin))
end.
1)Заливаем полный 3-х л. кувшин
2)Выливаем его в 5 л. кувшин
3)Заливаем полный 3-х л. кувшин
4)Выливаем его в 5 л. кувшин(в 3-х литр. кувшине остается 1л.)
5)Выливаем 5-литр. кувшин
6)Выливаем остатки с 3-х литр. кувшина в 5-литр. кувшин
7)Заливаем полный 3-х л. кувшин
8)Выливаем его в 5 л. кувшин
Все
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>