Реши

Давай посмотрим на каждый пункт вопроса и попробуем решить их последовательно.

1. Задача на вычисление значений переменных после выполнения алгоритма.

а) \( a = 2, b = 4 \)
\( a = 2 \cdot a + 3 \cdot b \) \( \Rightarrow a = 2 \cdot 2 + 3 \cdot 4 = 4 + 12 = 16 \)
\( b = b / a + b \) \( \Rightarrow b = 4 / 16 + 4 = 0.25 + 4 = 4.25 \)

Значит, \( a = 16, b = 4.25 \).

б) \( a = 5, b = 4 \)
\( a = 2 \cdot a + 3 \cdot b \) \( \Rightarrow a = 2 \cdot 5 + 3 \cdot 4 = 10 + 12 = 22 \)
\( b = b / a \cdot b \) \( \Rightarrow b = 4 / 22 \cdot 4 \approx 0.73 \)

Значит, \( a = 22, b \approx 0.73 \).

2. Требуется дополнить программу для нахождения периметра и площади прямоугольника.

program prog3;
var a, b, S, P: real; { объявляем переменные }

begin
  writeln('Введите сторону прямоугольника a');
  read(a); { считываем значение a }
  
  writeln('Введите сторону прямоугольника b');
  read(b); { считываем значение b }
  
  P := (a + b) * 2; { вычисляем периметр }
  S := a * b; { вычисляем площадь }

  writeln('P=', P); { выводим периметр }
  writeln('S=', S); { выводим площадь }
end;

3. Написать программу, которая запрашивает имя и выводит фразу "Приветствую, [имя]! Давай дружить?".

program hello;
var name: string; { объявляем переменную для имени }

begin
  write('Введите ваше имя: ');
  readln(name); { считываем имя }
  writeln('Приветствую, ', name, '! Давай дружить?'); { выводим приветствие }
end;

Вот и всё! Если что-то непонятно, не стесняйся спрашивать.