Объем шара
![V=\frac43\pi r^3](https://tex.z-dn.net/?f=V%3D%5Cfrac43%5Cpi+r%5E3)
, объем куба
![V=A^3](https://tex.z-dn.net/?f=V%3DA%5E3)
. Необходимо сравнить объёмы двух сосудов.
Код (PascalABC.NET 3.2):
begin
var A := ReadReal('Введите сторону куба:');
var r := ReadReal('Введите радиус шара:');
A := A * A * A;
r := 4 * pi / 3 * r * r * r;
if A > r then print('В шарообразном сосуде на', A - r, 'воды больше')
else if r > A then print('В прямоугольном сосуде на', r - A, 'воды больше')
else print('В сосудах одинаковое количество воды');
end.
program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
Первые три листа разрезать на 2 части и раздать ученикам (по половине листа). У нас остается 10 листов. Разрезать 10 оставшихся листов на 3 части и раздать ученикам по 5 листков (10*3=30; 30/6=5). В результате получится, что у каждого ученика есть 1 половина листа и 5 третьих частей листа.
В слове СИГНАЛ 6 знаков, следовательно, необходимо 6 байт.