Помогите по Паскалю !!!!СРОЧНО. Пожалуйста Ребята, буду очень благодарен если поможете...

Question

Помогите по Паскалю !!!!СРОЧНО. Пожалуйста Ребята, буду очень благодарен если поможете :-))) Определить значение переменной s после выполнения следующих фрагментов программы: 1. Var s; real; i : integer; . . . s := 0; for i := 1 to 4 do begin s := s*10 ; s := s + I ; end; Определить значение переменной y после выполнения следующих фрагментов программы: 2. Var y : real; x : integer; . . . y := 0; for x := 6 downto 2 do y := y +x; y := y /5; Определить значение переменной s после выполнения следующих фрагментов программы: 3. Var s : real; n : integer; . . . s := 0; for n := 6 downto 3 do begin s := s + 1; s := s *2; end;

Answer 1

1. Программа умножает своё значение на десять и затем прибавляет индекс цикла. В итоге делает это 4 раза.

Это равносильно сложению строковых данных в виде чисел от одного до четырёх.

s = '1' + '2' + '3' + '4' = 1234

Ответ: 1234.

2. Программа прибавляет к значению y значение индекса x (от 6 до 2) и затем делит значение на 5. [5 раз]

y = (0 + 6) / 5 = 1.2

y = (1.2 + 5) / 5 = 1.24

y = (1.24 + 4) / 5 = 0.848

y = (0.848 + 3) / 5 = 0.7696

y = (0.7696 + 2) / 5 = 0.55392

Ответ: 0.55392.

3. Программа прибавляет к значению s один и затем умножает значение на 2. [4 раза]

s = (0 + 1) * 2 = 2

s = (2 + 1) * 2 = 6

s = (6 + 1) * 2 = 14

s = (14 + 1) * 2 = 30

Ответ: 30.