Ping 192.168.104.1
И смотри на количество полученных пакетов. Если 0- нет соединения.
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
Если на паскале, то
var
x: integer;
y: real;
begin
readln(x);
if x < 0 then
y := x*x+5*x
else
y := sqrt(x+6);
writeln(y);
<span>end.
Если в виде блок-схемы, то прикрепил картинку</span>
По центру: когда абзац нужно сделать чётко по середине.
По ширине: добавляются автоматически между словами где надо пробелы, чтобы отступ от полей и до текста с обеих сторон был чётко одинаковен.
1.Текстовые данные
2.Графические данные
3.Звуковые данные
4.Мультимедийные данные