Uses crt;varx:integer;s:real;beginclrscr;write('x=');read(x);s:=x*x;writeln('resultat=',s);end.
<span>1. Впиши носитель информации по образцу.
Компьютерная игра Магнитный диск
Ваша фотография фотобумага
Наскальный рисунок камень
Оценка в классном журнале </span><span>бумага</span>
(1), т.к. поднялся в Школа и опустился в *Школа\Задания\Математика
Может быть это? <span>pascal: </span>
<span>var a: array [1..20] of integer; </span>
<span>i, k: integer; </span>
<span>s: real; </span>
<span>begin </span>
<span>// заполняем массив c клавиатуры </span>
<span>for i:=1 to 20 do </span>
<span>readln(ar); </span>
<span>//считаем среднеариф-е </span>
<span>s := 0; </span>
<span>k := 0; </span>
<span>for i:=1 to 20 do </span>
<span>if a >=0 then begin </span>
<span>s := s + a; </span>
<span>k := k + 1; </span>
<span>end; </span>
<span>writeln('среднее: ', s/k); </span>
<span>end.</span>
Общее - это то, что можно общаться с определённым кругом лиц, различие, то что в разное время. Например: на форуме сообщениями обмениваются не сразу, а в чате они приходят за считаные секунды, в телеконференции идёт разговор в реальном времени.