сделать 4 номер. Хотя бы просто сократить

емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

общение в интернете весьма разнообразно на данный момент.

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

чаты - способ быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.

instant messengers (icq,jabber,mns, - гибрид электронной почты и чата. быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.

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

социальные сети (vk,odnoklassniki, - это некий вариант im, который хочет с вас снять завесу анонимности. тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.