Question

Помогите пожалуйста 1) Var y,i: integer; Begin y := 0; For i := 4 downto 1 do y := y + 12-i; Writeln(y); End. 2) Var s,k: integer; Begin s := 0; for k := 12 downto 6 do s := s + 10; writeln(s); End.

Answer 1

1) 38
2) 70
 Просто вставил в Паскаль

Answer 2

Конечно, я помогу вам разобраться с этим кодом на языке программирования Pascal.

1. Код на Pascal:

pascalCopy code
Var y,i: integer;
Begin
  y := 0;
  For i := 4 downto 1 do
    y := y + 12 - i;
  Writeln(y);
End.

Этот код вычисляет сумму чисел от 12 до 9 (включительно) и выводит результат.

• Изначально y установлено в 0.
• Цикл For проходит по переменной i от 4 до 1 (шаг -1).
• Внутри цикла происходит вычисление y = y + 12 - i, то есть к текущему значению y добавляется разница между 12 и i.
• Результат вычисления y выводится с помощью Writeln.

2. Код на Pascal:

pascalCopy code
Var s,k: integer;
Begin
  s := 0;
  for k := 12 downto 6 do
    s := s + 10;
  writeln(s);
End.

Этот код вычисляет сумму 10, взятых 7 раз, и выводит результат.

• Изначально s установлено в 0.
• Цикл for проходит по переменной k от 12 до 6 (шаг -1).
• Внутри цикла происходит вычисление s = s + 10, то есть к текущему значению s добавляется 10.
• Результат вычисления s выводится с помощью Writeln.

Если у вас есть какие-либо дополнительные вопросы по этому коду или что-то не совсем понятно, пожалуйста, дайте знать!