Написать программу в паскале: 1.проверить принадлежность числа х к интервалам [a; b] или [c; d].

Var a,b,x: integer; begin writeln('введите число x: '); readln(x); writeln('введите интервал от a до b: '); readln(a,b); if (x> =a) and (x< =b) then writeln('x принадлежит данному интервалу') else writeln('x не принадлежит данному интервалу'); readln; end.

Var   i: integer; begin   writeln('число    квадрат');   i: =14;   while i< =24 do   begin writeln(i: 4,sqr(i): 9); i: =i+2 end end. результат выполнения программы: число    квадрат   14          196   16          256   18          324   20          400   22          484   24          576

С22 апреля по 13 мая в нашей школе проходит конкурс «клумба моей мечты». 5-8 и 10 класса должны подготовить участок, посадочный материал, материал для ограждения клумбы, продумать дизайн, ну и, конечно, посадить растения. вечером 6 мая мы собрались осуществить наши планы по посадке клумбы. было холодно, дождливо и ветрено, поэтому поработать пришли только четверо взрослых и пятеро . ценой героических усилий клумбу вскопали и высадили то, что принесли.  огромное    маниной ирине викторовне, дышековой татьяне евгеньевне, маниной анастасии, ломп карине, гришковой юлии, гордиенко максиму и орлову никите.