Мы знаем что в 1 килобайте 1024 байт
соответственно: 10 кб * 1024 = 10240 байт
10240 байт > 1000 байт
Соответственно 10 кб больше чем 1000 байт
Это зависит от того как внимателен ученик, от того понимает ли он абсолютно все темы , от того старателен ли он и от того насколько его интересует этот предмет.
Var n,k,kolvo,c:real;beginreadln (k,n,c); kolvo:=k;while k+(c-n) >=0 do beginif k+(c-n)<kolvo then begin writeln ('за ' ,abs(k/(c-n)) , 'прыжков');break endelse beginwriteln ('собака кролика не догонит');breakend; end;end.
<span>a=истина, b=ложь, с=истина.</span>
<span>а) a и b = И и Л = ложь
б) a и b или c = Л или И = истина
в) (a или b) и (с или b) = (И или Л) и </span><span><span>(И или Л)</span> = И или И = истина
г) a или b = И или Л = истина
д) a или b и c = И или (Л и И) = И или Л = истина
е) не (a или b) и (c или b) = (не И) и И = Л и И = ложь
ж) не a или b = Л или Л = ложь
и) не a или b и c = Л или (Л и И) = Л или Л = ложь
<span>к) не (a и b и c)</span></span> = не (И и Л и И) = не Л = истина
Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.