<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
if x>0 then Writeln('y=',x*(x+2))
else
if x<0 then Writeln('y=',x*(2*x-0.5))
else Writeln('Функция y(x) не определена при х=0')
end.
<span><span>в 16ти символьном алфавите каждый символ весит 4 бита так как 2⁴=16
(1/16)*1024*1024*8=1024*512=524288бит( 1/16 часть мегабайта перевели в биты)
524288/4=131072 символа
ответ:131072</span></span>
#include <iostream>
using namespace std
int main() {
int a
cout<<" введи число"
cin>>a
if (a=5) {
cout<<"a=5"
eiso
cout<<"a<>5"
return 0
}
Кажется вы немного ошиблись.
Решая уравнение получаем угол = примерно 60 градусов.
Uses crt;
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.<span>
</span>