<span> график функции: f(x) = 2х^3+3х-5х^2</span>
1) ветвление
2) про него можно сказать, что оно истинно или ложно.
3) целый - если известно что переменная принимает только целые числа, вещественный - во всех иных случаях, особенно если есть деление в процессе выполнения программы.
Анекдот в тему: "Разговаривают два программиста:
1) Информатики реально умные люди.
2) ???
1) Только мы можем ответить на вопрос в котором уже заложен ответ.
2) В смесле?
1) Сколько будет 2+2=4?
2) True!!!" (с)Народный анекдот. Прочитал где-то, воспроизвел по памяти.
Всего 294 символа в тексте. Как правило 1 символ = 8 бит.
соответственно - 294*8=2352 бита.
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705