Составить блок-схему алгоритма нахождения x из уравнения 2x + a = c, если а = 5; с = 7
Ответы
1. 32
a = 26
b = 6
b = a / b + b = 26 / 6 + 6 = (4*6+2) / 6 + 6 = 4 + 6 = 10
c = a % b + a = 26 % 10 + 26 = (2 * 10 + 6) % 10 + 26 = 6 + 26 = 32
2. 9
a = 24
b = 5
c = a % b + b = 24 % 5 + 5 = (4 * 5 + 4) % 5 + 5 = 4 + 5 = 9
3. 32
a = 28
b = 7
c = a / b + a = 28 / 7 + 28 = 4 + 28 = 32
4. 6
a = 24
b = 5
b = a / b = 24 / 5 = (4 * 5 + 4) / 5 = 4
c = a / b = 24 / 4 = 6
5. 5
a = 22
b = 4
b = a % b + 4 = 22 % 4 + 4 = (5 * 4 + 2) % 4 + 4 = 2 + 4 = 6
C = a % b + 1 = 22 % 6 + 1 = (3 * 6 + 4 ) + 1 = 4 + 1 = 5
6. 3
a = 28
b = 7
b = a / b = 28 / 7 = 4
c = a % (b + 1) = 28 % (4 + 1) = 28 % 5 = (5*5 + 3) % 5 = 3
7. 7
a = 26
b = 6
b = a % b = 26 % 6 = (4 * 6 + 2) % 6 = 2
c = a / (b + 1) = 26 / (2 + 1) = 26 / 3 = (7*3 + 5) / 3 = 7
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
