Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
Readln(x);
if sqr(x)-4>0 then writeln('Da') else writeln('Net');
Readkey;
<span>end.</span>
Значки и ярлыки объектов виндоус окна открытых приложений панель задач содержащию кнопку пуск панель индикации и ряд панелей инструментов рабочего стола фановый рисунок или активные элементы рабочего стола
В России построена первая телеграфная линия - 40-е гг. 19 века.
В Америке изобретён телефон - 1876 г
Русский ученый Попов открыл радиосвязь - 1895 г.
Создан первый телевизор - 30-е гг. 20 века
В США начала функционировать первая в мире компьютерная - 1969 г.
Так?
uses Robot;
begin
Task('if1');
right;
if WallFromUp then
begin
down;
right;
up;
end;
if wallfromdown then
begin
up;
right;
down;
end;
paint;
end.
√13= 3.60555128
√14 = 3.74165739
√13.14= 3.62491379