Помогите решить задачу, вообще не смыслю в информатике.) чему равны значения переменных...

Question

Помогите решить задачу, вообще не смыслю в информатике.)
чему равны значения переменных r, a, d?
var a, b, c: integer
r, d: real;
a: = 5; b: = 20;
c: = -7; d: = 25;
r: = a + (4 * b + c) * d
a: = a+4
d: = a*7

с решением, пожалуйста.

Answer 1

По условию:
 a=5, b=20, c=-7, d=25

Находим значение переменной r:
r = a + (4 * b * c ) * d = 5 + (4* 20 * -7) * 25 = -13995

Находим значение переменной a:
a = a + 4 = 5 + 4 = 9

Находим значение переменной d:
d = a * 7 = 9 * 7 = 63


program r_a_d;
var
a, b, c : integer;
r, d : real;

begin
a:=5;
b:=20;
c:=-7;
d:=25;

r := a + (4 * b * c ) * d;
a := a+4;
d := a*7;

writeln('r=', r:10:4, ', a=', a, ', d=', d:10:4);
end.

Comments

СПАСИБО ОГРОМНОЕ, ПРАВДА! ВЫРУЧИЛИ.)

---

да не за что, спрашивайте, ответим! ;-)

---

в программе только переносы строк правильно расставь (после всех точек с запятой ;), а то программа их зарезала

---

и после begin тоже?)

---

и решение тоже писать?)

---

не, только начиная со слова program и до конца. поправил переносы строк

---

а решение писать?

---

то, что выше слова program к программе не относится, если Вам нужно только программу (по заданию), тогда не надо. Это я только для Вас написал, что откуда берётся и что в итоге получается. Я же не знал, что нужно программу оформить правильно

---

нет, скорее всего нам требуется решение. Спасибо!.

---

не за что особенно. задание на 2 минуты