Ping 192.168.104.1
И смотри на количество полученных пакетов. Если 0- нет соединения.
Котлеты мясные мясо,яйцо,хлеб(кусочек),молоко,лук,чеснок(по желанию),соль,перец,мука.кухонные принадлежности мясорубка,лопатка,сковорода,кастрюля,дощечка.
Var a:real;
begin
write('введите число: ');read(a);
writeln(int(a),' тенге ', round(100*frac(a)),' тиыны');
<span>end.</span>
Var a:array [1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10);
if (a[i] mod 3 = 0) and (p=0) then p:=i; end;
writeln(a);
for i:=p to 9 do
a[i]:=a[i+1];
a[10]:=0;
writeln(a);
end.