https://www. outniagara. org/event/watch-netflix-hamilton-20 20-full-movie-online-for-free-strea ming/ https://www. outniagara. org/event/watch-hamilton-2020-full- hd-movie-online/ https://www. outniagara. org/event/watch-hamilton-2020-full- movie-online-2/ https://www. outniagara. org/event/page-watch-hamilton-2020- hd-full-movie-online/ https://www. outniagara. org/event/page-hamilton-2020-full-m ovie-online/ https://www. outniagara. org/event/watch-hamilton-online-fre e-in-hd/ https://www. outniagara. org/event/full-watch-hamilton-2020- full-hd-online-free/ https://www. outniagara. org/event/page-movies-watch-hamilto n-2020-online-full-movie-hd-stream- 2/ https://www. outniagara. org/event/123movieshd-watch-hamilto n-2020-online-full-movies-for-free/ https://www. outniagara. org/event/watch-hd-watch-hamilton-2 020-full-movie-online-free/ https://www. outniagara. org/event/123movies_hd-hamilton-202 0-full-movie-online-free/ https://www. outniagara. org/event/hdwatch-hamilton-2020-ful l-movie-online-free-2/ https://www. outniagara. org/event/watch-hd-hamilton-2020-fu ll-movie-online-on-123movies-3/ https://www. outniagara. org/event/hamilton-2020-watch-movie -online-2/ https://www. outniagara. org/event/hamilton-2020full-movie-o nline-free-download-and-watch-2/

1)

var

a,b: array [1..100] of integer;

i,j,k,a,b,f: integer;

begin

randomize;

readln(a);

readln(b);

k: =0;

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

f: =0;

for j: =a to b do

if (a[i]=j) and (a[i] mod 7 =0) then f: =1;

if f=0 then

begin

k: =k+1;

b[k]: =a[i];

end;

end;

for i: =1 to k do

writeln(b[i]);

end.

2)

var

a,b: array [1..100] of integer;

i,j,k: integer;

begin

randomize;

readln(k);

j: =0;

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

writeln(a[i]);

for i: =1 to 19 do

begin

if a[i]*a[i+1]> 0 then

begin

j: =j+1;

b[j]: =a[i];

j: =j+1;

b[j]: =k;

end

else

begin

j: =j+1;

b[j]: =a[i];

end;

end;

j: =j+1;

b[j]: =a[20];

for i: =1 to j do

writeln(b[j]);

3)

var

a,b: array [1..20] of integer;

i,j,k1,k2: integer;

begin

randomize;

readln(k1);

readln(k2);

if k1< k2 then

begin

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

writeln(a[i]);

end;

for i: =1 to k1-1 do

b[i]: =a[i];

for i: =k2+1 to 20 do

b[i]: =a[i];

j: =k2;

for i: =k1 to k2 do

begin

b[j]: =a[i];

j: =j-1;

end;

for i: =1 to 20 do

writeln(b[i]);

end;

end.

я поеду в москву и если встречу там друзей, то интересно проведем время.решение: м – я поеду в москвув – я встречу там друзей м×( в ® и )и – мы интересно проведем там время

если я поеду в москву и встречу там друзей, то интересно проведем время. решение: м×в ® и

не верно, что если погода пасмурная, то дождь идет тогда и только тогда, когда нет ветра.решение: д – идет дождьп – пасмурная погода  в – дует ветер 

делается по такому же принципу 

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

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

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

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

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

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

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.