Виртуальное общения - знакомая ситуация для нашего времени. Люди знакомится в социальных сетях, общаются, иногда встречаются реальной жизни. Это может быть полезным - пообщаться с человеком, который тебя не знает, услышать его непредвзятое мнение. Сеть дает расслабиться. Ты можешь быть кем угодно, с какой угодно внешностью и характером. Это дает свободу мошенникам и разнообразным шутникам, которым нечего делать, кроме как издеваться над людьми. В этом заключается вред виртуального общения - ты не знаешь с кем переписываешься. Я не против такого общения, но нужно быть осторожным.
Var a,b,d,K,kp:integer; P:boolean; Begin kp:=0; ReadLn(a,b); if (a = 1)or(a = 2) then Begin kp:=2; Write(2,' ',3) end else if a = 3 then Begin kp:=1; Write(3); End; if a < 5 then a:=5 else if a mod 2 = 0 then a:=a+1; While a<=b do Begin K:=Trunc(Sqrt(A)); d:=3; P:=true; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; if P then Begin kp:=kp+1; Write(' ',a); End; a:=a+2 End; if kp = 0 then Write(0) End.
ішкі:қуаттылыққа тәуелді жад жұмыс істейтін бағдарламаларды уақытша сақтау және мәліметтер үшін пайдаланады