===== PascalABC.NET =====
function GCD(a, b: integer): integer;// НОД
begin
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
Result := a
end;
procedure RedFrac(var a, b: integer);// сокращение дроби
begin
var sgna := Sign(a); // мы должны учитывать знак!
var sgnb := Sign(b); // мы должны учитывать знак!
a := Abs(a);
b := Abs(b);
var d := GCD(a, b);
a := (a div d) * sgna;
b := (b div d) * sgnb
end;
begin
var (p1, q1) :=
ReadInteger2('Дробь 1. Введите числитель и знаменатель:');
var (p2, q2) :=
ReadInteger2('Дробь 2. Введите числитель и знаменатель:');
var p3 := p1 * q1 + p2 * q2;
var q3 := q1 * q2;
RedFrac(p3, q3);
Println(p3, '/', q3)
end.
Рассмотрим ситуацию на примере:
Бабушка отправляет Вам письма с поздравлениями на каждый праздник уже не первый год. И вдруг Вы переехали на другой адрес и бабушке его не сказали. По сути, Вы удалили свой старый почтовый ящик (теперь тот ящик не Ваш), а бабушка не знает Ваш новый адрес.
При этом бабушка не аннигилирует, она будет дальше существовать на Земле и будет слать письма на старый адрес.
Так же и с аккаунтами. Когда Вы их регистрируете, Вы просто сообщаете сайту, как можно с Вами связаться, например, в случае восстановления пароля. После удаления почтового ящика аккаунт будет дальше работать, и сайт будет отправлять письма на старый адрес (если вы не привяжете новый ящик).
ответ: нет, аккаунты не удалятся