Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Рассмотрим возможные варианты А = 0 В = 0, тогда на выходе 1-й схемы И будет 0, на входе 2-й схемы 1 А=0 и В=0, т.к. входыобъединены. На выходе схемы 2-й схемы И будет 0. Сигнал 0 поступает на вход схемы НЕ. На выходе схемы НЕ сигнал равен 1А В F0 0 1 0 1 11 0 11 1 0
<span>
1) {найти квадрат числа}</span>
<span /><span><span>var k:</span>real;</span><span />
<span>begin
</span><span>read(k);
</span>
<span>k:=k*k;
write(k);</span><span><span /><span>end.</span></span>
<span><span /></span>2) {задача с оценками}
<span><span><span><span>v</span></span></span></span><span><span><span><span>ar i:</span>integer; </span></span></span>
<span><span><span>a,b,c,d,e: 2..5;</span></span></span>
<span><span><span>sred:real;</span></span></span>
<span><span><span /><span>
begin
</span><span>write ('Введите оценки, после каждой Enter');</span><span /></span></span>
<span><span><span>read(a);
read(b);
read(c);
read(d);
read(e);
</span></span></span>
<span><span><span /><span>sred:=(a+b+c+d+e)/5;</span></span></span>
<span><span><span /><span /><span><span>if sred >= </span>4.5 then writeln('Тебе подарят плеер и роликовые коньки!')</span><span /></span></span>
<span><span><span /><span><span>else if (sred >=</span>3.5<span>) and (sred <</span>4.5<span>) then</span></span><span>writeln('Увы, тебе подарят только плеер');</span><span><span /></span></span></span>
<span><span><span><span /><span>end.</span></span></span></span>
После выполнения алгоритма вывод числа s=35