<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.
Ок, ответ действительно был неправильный, потому что я невнимательно прочитал условие.
Значит так, мы считаем количество слов, пока что забиваем на то, что в каждом слове должна быть буква У. Таких слов будет 5*5*5*5 = 625
Теперь считаем количество слов, в которых совсем нет буквы У:
4*4*4*4 = 256.
Ну и все, собсна вычитаем одно из другого:
625 - 256 = <span>369</span>
16 символов - 4 бита.
4*74 = 296 битов.
296/8=37 байт
<span>const Ei=2.71
</span>i:integer;<span>
S0, S1, S2, S3: real;
</span>begin
S0:=0;
<span>for i := 1 to 30 do
begin
S0 := </span>S0<span>+</span>exp( 2 * ln(cos(i)))<span>;
end;
</span>S1:=0;
for i := 1 to 10 do
begin
S1 := S1*sin(exp( 2 * ln(i)));
end;
S2:=<span>exp( S0 * ln(Ei));
</span>S3:=exp( S1 * ln(Ei));
writeln('S= ',S2+S3);
end.