Question

Напишите программу, которая определяет, что за атом (или ион) образовался. Если количество электронов не равно количеству протонов, то образовался ион. В противном случае — нейтральный атом. Название элемента определяется количеством протонов. Изотоп — по числу нейтронов. Формат ввода Вводятся 3 целых числа, обозначающие количество электронов, протонов и нейтронов, образующих атом, каждое с новой строки. Формат вывода На первой строке — атом или ион. Далее — название элемента (в данном случае только водород или гелий). Изотоп (см. таблицу). Возможные варианты:

Answer 1

===== PascalABC.NET =====

begin

 // неверные варианты вызовут ошибку при выполнении

 var mp := Arr('водород', 'гелий');

 var mn := Arr('протий','дейтерий','тритий','гелий-3','гелий-4');

 var (e, p, n) := ReadInteger3;

 Writeln(e = p ? 'атом' : 'ион');

 Writeln(mp[p - 1]);

 Writeln(p = 1 ? mn[n] : mn[n + 2])

end.