759 / 12 = 63, остаток 3
63 / 12 = 5, остаток 3
5 / 12 = 0, остаток 5
А теперь выписываем остатки в обратном порядке.
759₁₀ = 533₁₂
задай var x,y:real;
так как в формуле есть деление.
Можно проанализировать работу цикла по шагам (берутся при расчете всегда текущие, т.е. последние значения переменных). Цикл с параметром i выполняется 5 раз:
1 шаг. i=1, f=f*i=1*1=1
2 шаг. i=2, f=1*2=2
3 шаг. i=3, f=2*3=6
4 шаг. i=4, f=6*4=24
5 шаг. i=5, f=24*5=120
В результате вычисляется то, что называется факториалом числа (обозначается знаком !), в данном случае 5!
1)c;2)b;3)a;4)d;) вот все правильное
1)
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-3 then Write('f(',x,') = ',x*x+sqrt(x+4))
else if x<0 then Write('f(',x,') = ',x+10)
else Write('f(',x,') = ',1/sqrt(x))
End.
2)
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
if B mod 2 <> 0 then S:=S+B;
WriteLn('S = ',S);
End.
3)
Var
A,k:integer;
Begin
k:=0;
For A:= 100 to 999 do
if ((A div 100) mod 2 = 0)and(((A div 10) mod 10) mod 2 = 0)and((A mod 10) mod 2 = 0)
then k:=k+1;
WriteLn('k = ',k)
End.