Написати 3 гуморески чи анекдоти про інформатику.

***  идет урок информатики в школе. - вася, - спрашивает учитель, - сколько в килобайте байт? тот молчит. - ага, не знаешь! почему не выучил? - мамы дома не было, было некому , "два". - толя иванов, сколько в килобайте байт? и ты не знаешь? почему? - папа поздно -садись, тоже "два". гоша, а ты знаешь? - не знаю. я вчера новый вирусок клепал, хард-диски форматировал, вот и не успел выучить. - ты что же, хочешь меня напугать? садись! "три"!   ***  используются ли в вашей школе компьютеры? – спрашивает проверяющий из гороно. – конечно,  отвечает директор. – вот смотрите! приоткрывают дверь в 1а класс и их глазам предстаёт такая картина. на подоконниках стоят три компьютера. учительница мария ивановна обращается к ученикам: - дети, если я переставлю один компьютер к тем двум, сколько всего там станет компьютеров?

Program project1; var m: array of integer; n, i, old, simple: integer; function nod (var a,b: integer): integer; var c: integer; begin   repeat       if a > b then           a : = a mod b       else           b : = b mod a;   until (a = 0) or (b = 0);   nod : = a + b; end; function issimple(const n: integer): boolean; var i: integer; begin   issimple: =true;   for i: =0 to length(m)-1 do begin       if (n mod m[i])=0 then begin           issimple: =false;           break;       end;   end; end; begin   repeat       write('n: '); readln(n);       setlength(m, length(m)+1);       m[length(m)-1]: =n;   until n< =0;   setlength(m, length(m)-1);     old: =nod(m[0], m[1]);   for i: =2 to length(m)-1 do       old: =nod(old, m[i]);   writeln('nod: ', old);   simple: =0;   for i: =0 to length(m)-1 do       if issimple(m[i]) then           inc(simple);   writeln('simple: ', simple);   readln; end. нахождение нод всех чисел это нод(нод(а, б), в) и т.д. остальное думаю понятно.

Program project1; var m: array of integer; n, i, summ: integer; begin   repeat       write('n: '); readln(n);       setlength(m, length(m)+1);       m[length(m)-1]: =n;   until n=0;   setlength(m, length(m)-1);   n: =0; summ: =0;   for i: =0 to length(m)-1 do begin       if m[i]> 12 then begin           inc(n);           inc(summ, m[i]);       end;   end;   writeln('result: =', summ/n);   readln; end. 2) program project1; var n, t, res: integer; begin   write('n: ='); readln(n);   res: =1;   while n> 0 do begin       t: =(n mod 10);       if t< 4 then res: =res*t;       n: =n div 10;   end;   writeln('result: =', res);   readln; end.