Нажать пуск
Ровлвтвовивдвтдвтвдвтвдчтвдвтвдвтудвивдвьм
Var
a, b: real;
begin
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
end.
2)
var
a, b, c: real;
begin
readln(a, b, c);
writeln('cos(alpha) = ', (b * b + c * c - a * a) / (2 * b * c));
writeln('cos(beta) = ', (a * a + c * c - b * b) / (2 * a * c));
writeln('cos(gamma) = ', (a * a + b * b - c * c) / (2 * a * b));
end.
Если использовать бинарную систему, то есть: 0 - нет звука, 1 - есть какой-либо звук, то запись: "0001", будет звучать как небольшая пауза и короткий гудок.
Однако, запись: "1" или "11111" будет звучать, как шум.
Запись в виде наилучшей последовательности, к примеру: "00110110001001010101" может дать определённую звучную мелодию.
Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
<span>END.</span>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748