
A := -7; b := 36; a := b * (-3) - (a * 2); b := a - 23 + b; if a <> b then c := a + b else
c := a - 5; a := 65; b := 45; a := b - a div 5; b := a + b mod 2; if a < b then c := b + a else c := a - b; a := -75; b := 33; a := b * 2 - a; b := a + b div 2; if a >= b then c := a - b * 4 else c := a + 25; a := 3; b := 2; a := a - 2 * 3; if b >= a then c := a * 2 else c := a - 5 mod 2; a := 33; b := 22; a := b - a * 2; b := b - a ; if a > b then c := b + 7 else c := b + 4; a := 87; b := -21; a := b + 44; b := (a - 6 + b) div 3; if a <> b then c := a - 2 * b else c := a + 2 * b; a := 2; b := 5; if b mod 2 = 0 then c := a * b div 3 else c := a * b div 4; a := -4; b := -1; a := -b + a * 2; b := a - b * 2; if a < b then c := b - a else c := a - b; a := -31; b := -13; a := -(b + a) mod 20 ; b := b + a ; if a > b then c := a - b else c := b - a; a := 2; b := -98; a := (a + b *(-2)) div 10; b := b - a ; if a > b then c := a - 4 else c := 4; Срочноооооооооооооооо решите плез

Ответы на вопрос

Полный текст программы
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
var
a, b, c: integer;
begin
A := -7;
b := 36;
a := b * (-3) - (a * 2);
b := a - 23 + b;
if a <> b then c := a + b
else c := a - 5;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 65;
b := 45;
a := b - a div 5;
b := a + b mod 2;
if a < b then c := b + a
else c := a - b;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := -75;
b := 33;
a := b * 2 - a;
b := a + b div 2;
if a >= b then c := a - b * 4
else c := a + 25;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 3;
b := 2;
a := a - 2 * 3;
if b >= a then c := a * 2
else c := a - 5 mod 2;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 33;
b := 22;
a := b - a * 2;
b := b - a;
if a > b then c := b + 7
else c := b + 4;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 87;
b := -21;
a := b + 44;
b := (a - 6 + b) div 3;
if a <> b then c := a - 2 * b
else c := a + 2 * b;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 2;
b := 5;
if b mod 2 = 0 then c := a * b div 3
else c := a * b div 4;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := -4;
b := -1;
a := -b + a * 2;
b := a - b * 2;
if a < b then c := b - a
else c := a - b;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := -31;
b := -13;
a := -(b + a) mod 20;
b := b + a;
if a > b then c := a - b
else c := b - a;
writeln('a = ', a, ', b = ', b, ', c = ', c);
a := 2;
b := -98;
a := (a + b * (-2)) div 10;
b := b - a;
if a > b then c := a - 4
else c := 4;
writeln('a = ', a, ', b = ', b, ', c = ', c);
end.
Вывод
a = -94, b = -81, c = -175
a = 32, b = 33, c = 65
a = 141, b = 157, c = 166
a = -3, b = 2, c = -6
a = -44, b = 66, c = 70
a = 23, b = -1, c = 25
a = 2, b = 5, c = 2
a = -7, b = -5, c = 2
a = 4, b = -9, c = 13
a = 19, b = -117, c = 15



Let's solve this step by step, starting with the initial values of variables A, B, and C, which are not explicitly provided but assumed to be 0 in most cases.
Initialize variables: A := -7 B := 36 C := 0 (assuming C is a variable)
Evaluate the first expression: a := b * (-3) - (a * 2)
:= 36 * (-3) - (0 * 2)
:= -108 - 0
:= -108Evaluate the second expression: b := a - 23 + b
:= -108 - 23 + 36
:= -131 + 36
:= -95Evaluate the if-else statement: if a <> b then c := a + b else c := a - 5 Since a = -108 and b = -95, a <> b is true. c := a + b
:= -108 + (-95)
:= -203Update variables: A := 65 B := 45
Evaluate the third expression: a := b - a div 5
:= 45 - 65 div 5
:= 45 - 13
:= 32Evaluate the fourth expression: b := a + b mod 2
:= 32 + 45 mod 2
:= 32 + 1
:= 33Evaluate the if-else statement: if a < b then c := b + a else c := a - b Since a = 32 and b = 33, a < b is true. c := b + a
:= 33 + 32
:= 65Update variables: A := -75 B := 33
Evaluate the fifth expression: a := b * 2 - a
:= 33 * 2 - (-75)
:= 66 + 75
:= 141Evaluate the sixth expression: b := a + b div 2
:= 141 + 33 div 2
:= 141 + 16
:= 157Evaluate the if-else statement: if a >= b then c := a - b * 4 else c := a + 25 Since a = 141 and b = 157, a >= b is false. c := a + 25
:= 141 + 25
:= 166Update variables: A := 3 B := 2
Evaluate the seventh expression: a := a - 2 * 3
:= 3 - 2 * 3
:= 3 - 6
:= -3Evaluate the eighth expression: b := b - a
:= 2 - (-3)
:= 5Evaluate the if-else statement: if b >= a then c := a * 2 else c := a - 5 mod 2 Since a = -3 and b = 5, b >= a is true. c := a * 2
:= -3 * 2
:= -6Update variables: A := 33 B := 22
Evaluate the ninth expression: a := b - a * 2
:= 22 - 33 * 2
:= 22 - 66
:= -44Evaluate the tenth expression: b := b - a
:= 22 - (-44)
:= 66Evaluate the if-else statement: if a > b then c := b + 7 else c := b + 4 Since a = -44 and b = 66, a > b is true. c := b + 7
:= 66 + 7
:= 73Update variables: A := 87 B := -21
Evaluate the eleventh expression: a := b + 44
:= -21 + 44
:= 23Evaluate the twelfth expression: b := (a - 6 + b) div 3
:= (23 - 6 - 21) div 3
:= 16 div 3
:= 5Evaluate the if-else statement: if a <> b then c := a - 2 * b else c := a + 2 * b Since a = 23 and b = 5, a <> b is true. c := a - 2 * b
:= 23 - 2 * 5
:= 13Update variables: A := 2 B := 5
Evaluate the thirteenth expression: if b mod 2 = 0 then c := a * b div 3 else c := a * b div 4 Since b = 5 and 5 mod 2 = 1, the else part will be executed. c := a * b div 4
:= 2 * 5 div 4
:= 10 div 4
:= 2Update variables: A := -4 B := -1
Evaluate the fourteenth expression: a := -b + a * 2
:= -(-1) + (-4) * 2
:= 1 + (-8)
:= -7Evaluate the fifteenth expression: b := a - b * 2
:= -7 - (-1) * 2
:= -7 - (-2)
:= -5Evaluate the if-else statement: if a < b then c := b - a else c := a - b Since a = -7 and b = -5, a < b is true. c := b - a
:= -5 - (-7)
:= -5 + 7
:= 2Update variables: A := -31 B := -13
Evaluate the sixteenth expression: a := -(b + a) mod 20
:= -((-13) + (-31)) mod 20
:= -(-44) mod 20
:= 44 mod 20
:= 4Evaluate the seventeenth expression: b := b + a
:= -13 + 4
:= -9Evaluate the if-else statement: if a > b then c := a - b else c := b - a Since a = 4 and b = -9, a > b is true. c := a - b
:= 4 - (-9)
:= 13Update variables: A := 2 B := -98
Evaluate the eighteenth expression: a := (a + b * (-2)) div 10
:= (2 + (-98) * (-2)) div 10
:= (2 + 196) div 10
:= 198 div 10
:= 19Evaluate the nineteenth expression: b := b - a


Похожие вопросы







Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili