1) n = 16
2) m = 180
3) a = 26
4) a = 22
5) b = 1
Объяснение:
1)
v := 1 // v = 1
n := 24 // n = 24
v := n - v * 4 // 24 - 1 * 4 ⇒ v = 20
n := v * 2 - n // 20 * 2 - 24 ⇒ n = 16
n = 16
2)
k := 3 // k = 3
m := 30 // m = 30
k := m - k * 3 // 30 - 3 * 3 ⇒ k = 21
m := k * 10 - m // 21 * 10 - 30 ⇒ m = 180
m = 180
3)
a := 4 // a = 4
b := 9 // b = 9
b := 6 * b - a // 6 * 9 - 4 ⇒ b = 50
a := b / 5 * 3 - a // 50 / 5 * 3 - 4 ⇒ a = 26
a = 26
4)
a := -12 // a = -12
b := 14 - a / 2 // 14 - (-12) / 2 ⇒ b = 20
b := (b - a) / 8 // (20 - (-12)) / 8 ⇒ b = 8
a := b * 2 + 6 // 8 * 2 + 6 ⇒ a = 22
a = 22
5)
a := 7 // a = 7
b := 2 // b = 2
a := b * 4 + a * 3 // 2 * 4 + 7 * 3 ⇒ a = 29
b := 30 - a // 30 - 29 = 1
b = 1
1)
var a,b,x,y:longint;
begin
write("Vvedite nachalo i konec otrezka: ");
read(a,b);
write("Vvedite x: ");
read(x);
y:=sqr(x)*x;
if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");
readln
end.
2)
var c,i:byte;
begin
for i:=49 to 215 do
if (i mod 4=0) then c:=c+1;
write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);
readln
end.
3)
var i:integer;
p:longint;
for i:=1000 to 9999 do
if (i mod 10=3) then p:=p*i;
write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);
readln
end.
4)
var i:byte;
c:integer;
begin
for i:=221 to 778 do
if ((i mod 10)=(i div 100)) then c:=c+1;
write("Kolichestvo chisel ravno ",c);
readln
end.
5)
var i:longint;
c:integer;
begin
for i:=10000 to 99999 do
if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;
write("Kolichestvo chisel ravno ",c);
readln
end.
Объяснение:
можно выписать то что написано