А надо в таблицу или нет если днадо то сорри
у меня ток так
<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>
Если я правильно понял вопрос:
uses crt;Var a:integer;Beginread(a);
if (a>99) and (a<1000) then writeln ('трехзначное')
else writeln ('не трехзначное');End.
1) упрощаем логическое выражение
2) строим таблицу истинности