Var x:integer;
begin
writeln('x=');
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln(' cislo neciotnoe i kratno semi ')
else
writeln('cislo ciotnoe i nekratno semi ');
readln;
end.
4(квадро) * 32 000 Гц * 32 *120 с=491520000 бит;
491520000 бит / 8=61440000 байт;
61440000 байт~58 Мбайт. В ответе требуется, целое число кратное 10, следовательно ответ 60.
Органы чувств ..........................!!!!!!!!
Ping 192.168.104.1
И смотри на количество полученных пакетов. Если 0- нет соединения.