Придумайте загадки о телефоне, столе, дискете, записной книжке, мышке и школе.информатика.

Сперва зазвонит он  обычным звонком,  потом говорит  чьим-нибудь голоском.  (телефон)  хоть по объёму и мала,  информацию хранит она.  знаем все устройство это  называется…….  (дискета)  телефоны сохраняет, адреса и имена,записать все то, что нужно нам она.есть у всех она, конечно, у девчонки и мальчишки,догадались, что же это? книжка) грызть не любит ничего,сыром не питается! монитор без нее грустит,сайт не открывается! (мышь) под крышей - четыре ножки,  на крыше - суп да ложки.  стоит весёлый, светлый дом. проворных много в нём.там пишут и считают,рисуют и читают. (школа)

По бокам коробки кругленькие кнопки. тут же рядом, в уголке ручка с трубкой на шнурке. без языка говорит, прекрасно слышит без ушей. ответ: телефон что за чудо-агрегат может делать все подряд - петь, играть, читать, считать, самым лучшим другом стать? на столе стоит сундук в сундуке окошко, мозно видеть чудеса, если знать немножко. на доске по строчечке разместились кнопочки догадайтесь мальчики как здесь тыкать пальчиком? то-то радость, то-то смех на бумаге, без огрех, из какой коробки лезет текст на удивленье всех? по ковру зверек бежит, то замрет, то закружит, коврика не покидает, что за зверь, кто угадает? как смогли вести беседу два часа после обеда три подружки, из норильска, озерков и сан-франциско? чудо-юдо чемодан лампа, кнопка да карман. он окутан словно город . это что за вертолет не отправится в полет? его дело не летать, а считать, считать, считать… если что-то отключить, то компьютер замолчит, тугоухий, как медведь - ничего не сможет спеть.

Uses crt; const a=0;           b=10;           n=15; var i: longint;       rez: longint; begin clrscr; writeln ('task 1: '); for i: =10 to 35 do       writeln(i: 3);       delay (2000); writeln ('task 2: '); for i: =5 to n do       writeln(i*i: 5);       delay (2000); writeln ('task 3: '); for i: =a to 50 do     begin       rez: =i*i*i;       writeln(rez: 7);   end;       delay(2000);   writeln ('task 4: '); for i: =a to  b do       writeln(i: 3); readln; end.

Sub aaa()       dim i as integer, j as integer, d       redim q(1 to 3, 1 to 2)       for i = 1 to 3               for j = 1 to 2                       q(i, j) = inputbox("введите элемент (" + str(i) + "," + str(j) + ")")               next j       next i       cells(1, 1).value = "исходный массив"       range(cells(2, 1), cells(4, = q       cells(5, 1).value = "результирующий массив"       for i = 1 to 3               if q(i, 1) > q(i, 2) then                       d = q(i, 1): q(i, 1) = q(i, 2): q(i, 2) = d               end if       next i       range(cells(6, 1), cells(8, = q end sub