Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
Ответ,А )с заданными условиями продолжение работ
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
<span>var a, b: integer;
begin<span>
writeln(<span>'Введите часы: '</span>);</span>
readln(a);<span>
writeln(<span>'Введите минуты: '</span>);</span>
readln(b);<span>
if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>);
</span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>);
</span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span>
if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span>
if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span>
if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span>
if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span>
if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>);
</span><span>end.</span></span>