Напишите сказку про операцыоную систему желательно на украинском

278

491

Посмотреть ответы 2

Ответы на вопрос:

koskol84p08pdw

Информатика

4,8(44 оценок)

Жил себе спокойно imb на досе,и тут пришёл себе виндовс.и стал imb жить в тоске и грусти.потому что его никто уже не любил.и imb решил немножко модернизироватся.но как он не пытался он был не лутше виндовса.и тут он вызвал его на бой.в итоге боя imb проиграл.и больше про него никто ничего не знал.

невидимка789657

Информатика

4,6(74 оценок)

//pascalabc.net 3.2 сборка 1318 //1 uses graphabc; var a,h,x,y: integer; c: char; begin writeln('read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then begin a: =random(200); writeln('длина ребра=',a,', объём=',power(a,3)); end else begin readln(a); writeln('объём=',power(a,3)); end; x: =windowwidth div 2; y: =round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end. пример ввода: n 16 пример вывода: объём=4096 //2 var x,p: integer; beginwrite('x: '); readln(x); write('p: '); readln(p); if not(odd(x)) then writeln('кратно 2'); if x mod 3=0 then writeln('кратно 3'); if x mod p=0 then writeln('кратно ',p); end. пример ввода: 18 6 пример вывода: кратно 2 кратно 3 кратно 6