Какие сведения вы храните в своей записной книжке как можно назвать записную книжку с точки зрения хранения информации

124

263

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

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

VictoriaStyle

Информатика

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

Номера телефонов, напоминания. записная книжка-долговременная память.

Д91

Информатика

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

Ежедневные дела, записи, номера телефонов. назвала бы ежедневник, или же личнвй дневник, записная книга

Julieta11

Информатика

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

Uses graphabc; const a=30; var xt,yt,x,y,i,j,t,xl,yl: integer; procedure cross(x,y,a: integer); begin; setpencolor(clred); line(x,y,x-a,y+a); line(x-a,y,x,y+a); setpencolor(clblack); end; begin; randomize; x: =windowwidth-300; y: =0; for i: =1 to 10 do begin; for j: =1 to 10 do begin; rectangle(x,y,x+a,y+a); x+=a; end; y+=a; x: =windowwidth-300; end; x: =random(1,10); y: =random(1,10); t: =0; while t< > 10 do begin; readln(xt); readln(yt); if (xt< > x) and (yt< > y) then begin; xl: =windowwidth+xt*30-300; yl: =300-yt*30; cross(xl,yl,a); inc(t); end; if (xt=x) or (yt=y) then begin; xl: =windowwidth+xt*30-305; yl: =300-yt*30+4; floodfill(xl,yl,clblue); inc(t); end; if (xt=x) and (yt=y) then begin; xl: =windowwidth+xt*30-305; yl: =300-yt*30+4; floodfill(xl,yl,clred); writeln('ты выиграл! '); break; end; end; if t=10 then begin; writeln('ты проиграл! '); xl: =windowwidth+x*30-305; yl: =300-y*30+4; floodfill(xl,yl,clred); end; end.