===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
Мегаба́йт (русское обозначение: Мбайт; международное: Mbyte, MB) — единица измерения количества информации, обозначающая, в зависимости от контекста взято с вики
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Скорее всего, 1 бит.
Если достали красный - да, 1
Достали другой цвет - нет, 0
Python 3.Среда разработки Idle.Уточняйте вывод,если числа вводятся последовательностью,то лучше воспользоваться функцией split()