Напишите программу, которая определяет, что за атом (или ион) образовался. Если количество электронов не равно количеству протонов, то образовался ион. В противном случае — нейтральный атом. Название элемента определяется количеством протонов. Изотоп — по числу нейтронов. Формат ввода Вводятся 3 целых числа, обозначающие количество электронов, протонов и нейтронов, образующих атом, каждое с новой строки. Формат вывода На первой строке — атом или ион. Далее — название элемента (в данном случае только водород или гелий). Изотоп (см. таблицу). Возможные варианты:
Answers & Comments
===== 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.