10. Как открыть файл в среде программирования Паскаль АВС?
11. Как создать файл в среде программирования Паскаль АВС?

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

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

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

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

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

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

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

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end